Ограничить длину строк в тексте

Option Explicit
Dim MyString As String ' наш текст
Dim Start As Long ' позиция в строке с которой начинается поиск
Dim IntervalCrLf As Long ' интервал между двумя CrLf,т.е. длина части строки между CrLfPosPrev и CrLfPosNow
Dim MaxLen As Long ' тебуемая нам ширина строки (кол-во символов)
Dim SpacePos As Long 'позиция пробела
Dim CrLfPosPrev As Long ' позиция CrLf в предыдущем поиске
Dim CrLfPosNow As Long ' позиция CrLf в этом поиске
'
 
Private Sub Form_Load()
    'Считываем файл
    Dim FN As Integer
    FN = FreeFile
    Dim FName As String
    FName = App.Path & "\Test.txt"
    Open FName For Input As #FN
    MyString = Input(LOF(FN), #FN)
    Close #FN
    Text1.Text = MyString
End Sub
'
Private Sub Command1_Click()
    MaxLen = 100 ' задаём длину строки
    Start = 1 ' задаём начало первого поиска CrLf
    CrLfPosPrev = 0 ' задаём фейковый результат предыдущего поиска CrLf для определения IntervalCrLf в первый раз
    '
    MyString = MyString & vbCrLf ' добавляем в конец строки для использования в условии выxода из цикла
    '
    Do Until CrLfPosNow >= 1000 'Len(MyString)выxод из цикла если это последний в строке CrLf
        CrLfPosNow = InStr(Start, MyString, vbCrLf) ' ищем CrLf
        IntervalCrLf = CrLfPosNow - CrLfPosPrev ' интервал между двумя CrLf
        '
        If IntervalCrLf <= MaxLen Then ' если меньше заданного или равно
            Start = CrLfPosNow + 1 ' позиция начала для следующего поиска со следующего после найденного CrLf символа
            '
        Else ' если больше заданного
            SpacePos = InStrRev(MyString, " ", CrLfPosPrev + MaxLen) ' ищем последний пробел перед найденным CrLf
            MyString = Replace(MyString, " ", "XXX", SpacePos, 1) ' вставляем CrLf сразу после найденного пробела
            Start = SpacePos + 2 ' позиция начала для следующего поиска со следующего после найденного CrLf символа
        End If
    Loop
    Text1.Text = MyString '
    SaveToFile '
End Sub
'
Private Sub SaveToFile()
    Dim FN As Integer
    FN = FreeFile
    Dim FName As String
    FName = App.Path & "\Test Edited.txt"
    Open FName For Output As #FN
    Print #FN, MyString
    Close #FN
End Sub

MyString = Replace(MyString, " ", "XXX", SpacePos, 1)

MyString = Replace(MyString, " ", " " & vbCrLf, SpacePos, 1)