Форматирование текста в TextBoxе без изменения размера его

Sub reorder()
 Dim s1 as string,s2 as string
 s1=text1.text
 s1=replace(s1,vbcrlf,"")
 s2=''
 while len(s1)>40
  s2=s2 & left(s1,40) & vbcrlf
  s1=mid(s1,41)
 wend
 s2=s2 & s1
 text1.text=s2
end sub

sub reorder2()
 Dim a() as string,i as long,j as long,s1 as string,s2 as string
 s1=text1.text
 s1=trim(replace(s1,vbCrLf," "))
 a=split(s1," ")
 j=0: s2=""
 for i=0 to ubound(a)
  if j+len(a(i))>41 then 
   j=len(a(i))
   s2=s2 & vbcrlf & a(i)
  else
   j=j+len(a(i))
   s2=s2 & " " & a(i)
  end if
 next i
 text1.text=s2
end sub

Sub reorder3()
 Dim a() As String, i As Long, j As Long, s1 As String, s2 As String
 Dim startidx As Long, endidx As Long, n As Long, k As Long
 s1 = Text1.Text
 s1 = Trim(Replace(s1, vbCrLf, " "))
 a = Split(s1, " ")
 j = 0: s2 = "": startidx = 0: endidx = 0
 For i = 0 To UBound(a)
  If j + Len(a(i)) > 41 Then
ProceedAnyway:
   j = 0
   For k = startidx To endidx
    j = j + Len(a(k))
   Next k
   n = (41 - j)
   Do
    For k = startidx To endidx - 1
     If n = 0 Then Exit For
     a(k) = a(k) & " ": n = n - 1
    Next k
   Loop While n > 0
   For k = startidx To endidx - 1
    s2 = s2 & a(k)
   Next k
   s2 = s2 & a(endidx) & vbCrLf
   startidx = i
   endidx = i
   j = Len(a(i))
  Else
   j = j + Len(a(i)) + 1
   endidx = i
   If endidx = UBound(a) Then GoTo ProceedAnyway
  End If
 Next i
 Text1.Text = s2
End Sub

sub reorder2()
 Dim a() as string,i as long,j as long,s1 as string,s2 as string
 s1=text1.text
 s1=trim(replace(s1,vbCrLf,' '))
 a=split(s1,' ')
 j=0: s2=''
 for i=0 to ubound(a)
 if j+len(a(i))>40 then ' ЗДЕСЬ БЫЛО 41
  j=len(a(i))+1 ' ЗДЕСЬ ДОБАВИЛА 1
  s2=s2 & vbcrlf & a(i)
 else
  j=j+len(a(i))+1 ' ЗДЕСЬ ДОБАВИЛА 1
  s2=s2 & a(i)' ' & ' ЗДЕСЬ ПОМЕНЯЛА МЕСТАМИ ПРОБЕЛ И МАССИВ a
 end if
 next i
 text1.text=s2
end sub