Перенос строк. Visual basic - VB

Sub bb()
Dim s$, i&, j&
s = "Сделать так, чтобы в строке находилось максимум 64 символа, если больше, то остальной текст переносится на новую строку и так до конца."
Debug.Print Space(64) & "|<< контроль"
Do
  j = InStrRev(s, " ", i + 65)
  If j Then
    Debug.Print Mid$(s, i + 1, j - i - 1)
  Else
    Debug.Print Mid$(s, i + 1)
    Exit Do
  End If
  i = j
Loop
End Sub