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

Формулировка задачи:

Заполняю объект Text1.Text циклом через какое-то время... цикл продолжается а объект перестает заполняться данными... Заполняю строками по 30 символов примерно какждая, примерно на 270 строке он останавливается на середине строки. Подскажите пожалуйста какой по умлчанию размер у этого объекта и где и как его можно изменить ? Сасибо..........

Решение задачи: «Какой размер у объекта Text Box ?»

textual
                            Листинг программы 
                        

                            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
                        