Какой размер у объекта Text Box ?

For i = 1 to 20000
 
For f= 1 to 20
 
If ExcSheet.Cells(i, stolb(f)) = '' Then Text4 = Text4 + '             Пустое значение в строке ' & i & ' в столбце ' & Stolbname(f)
If ExcSheet.Cells(i, stolb(f)) = '' Then Text4 = Text4 + Chr(13) + Chr(10)
If ExcSheet.Cells(i, stolb(f)) = '' Then Text4.Refresh
Text4.SelStart = Len(Text4.Text)
 
Next f
 
Next i

For i = 1 to 20000
For f= 1 to 20
 
If ExcSheet.Cells(i, stolb(f)) = '' Then 
   Text4 = Text4 & ' Пустое значение в строке ' & i & ' в столбце ' & Stolbname(f) & VbCrlf
   Text4.SelStart = Len(Text4.Text)
 
Next f
Next i

Private Sub Form_Click()
On Error GoTo bay
Dim i As Long
Dim str As String
'без ошибки код наверное не завершится ;-)
For i = 1 To 66000
   str = str & i & vbCrLf
   Me.Caption = i & '   ' & LenB(str)'lenB - определяет длину строковой переменной в байтах, а не в символах
Next i
TXT = str
Exit Sub
bay:
masgbox Err.Discription
End Sub

Private Sub Form_Click()
On Error GoTo bay
Dim i As Long
Код забыл вставить... он такойже
Dim str As String
For i = 1 To 4721
str = str & i & '   ' & LenB(str) & vbCrLf
Me.Caption = i & '   ' & LenB(str)
DoEvents
TXT = str
rTXT = str
TXT.SelStart = Len(TXT)
rTXT.SelStart = Len(rTXT)
Next i
rTXT.SaveFile 'c:12345.txt'
Exit Sub
bay:
TXT = TXT & Err.Number
End Sub

Private Sub Form_Load()
    Me.Text1.Text = String(70000, 'a')
    Debug.Print Len(Me.Text1.Text)
    Debug.Print LenB(Me.Text1.Text)
End Sub