Добавление в текст символов переноса строки

Option Explicit
 
Private Sub Command1_Click()
    Dim s, st, tmp As String, i As Long, j As Long
    Const v As String = vbCrLf 'Chr(16)
    Const n As Integer = 52
    Open App.Path & "\1.txt" For Input As #1
          st = Input(LOF(1), 1)
    Close #1
    st = Split(st, v)        'Разбиваем текст на строки
    For i = 0 To UBound(st)  '
      If Len(st(i)) > n Then 'Если длина строки больше необходимой, то
            s = Split(st(i)) 'Разбиваем строку на слова
            tmp = s(0)       'В переменную tmp записываем первое слово строки
            For j = 1 To UBound(s)
                If Len(tmp & " " & s(j)) > n Then  ' Если длина tmp с учетом следующего слова больше необходимой, то
                   st(i) = Replace(st(i), tmp, tmp & v, 1, 1) 'добавляем в нашу строку символ перевода строки
                   tmp = s(j)    'В переменную tmp записываем очередное слово строки
                Else
                   tmp = tmp & " " & s(j) 'Иначе добавляем к tmp  очередное слово
                End If
            Next j
       End If
    Next i
    Open App.Path & "\2.txt" For Output As #1
          Print #1, Join(st, v)
    Close #1
End Sub