[vb6] Editor di testo...se ci scrivo troppo mi dà errore

[ianstilo]

per esempio...questo è il codice per andare in automatico a piè di pagina:

 Dim FPos As Integer
Dim TextStr As String
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
Pos = 1: FPos = 0: TextStr = ""
Do Until Pos = 0 Or Pos >= Len(ChildForms(frm).Text1.Text)
 Pos = InStr(FPos + 1, ChildForms(frm).Text1.Text, Chr$(13))
 If Pos > 0 Then
   ChildForms(frm).Text1.SelStart = FPos
   ChildForms(frm).Text1.SelLength = Pos - FPos
   TextStr = TextStr & LTrim$(ChildForms(frm).Text1.SelText) & Chr$(10)
   FPos = InStr(FPos + 1, ChildForms(frm).Text1.Text, Chr$(10))
 End If
Loop
   ChildForms(frm).Text1.SelStart = FPos
   Pos = Len(ChildForms(frm).Text1.Text)
   ChildForms(frm).Text1.SelLength = Pos - FPos
   TextStr = TextStr & LTrim$(ChildForms(frm).Text1.SelText)
ChildForms(frm).Text1.Text = TextStr

con un textbox con dentro ...mooolti caratteri...max 65000 mi va in overflow....come risolvo?