Visual Basic 6 - Aprire lungo file in textbox

Allora,
per aprire un file di testo in una textbox ho fatto una cosa del genere:

Private Sub btnapri_Click()
txtfile.Text = ""
On Error GoTo fine
CommonDialog1.ShowOpen
Path = CommonDialog1.FileName
Open Path For Input As 1
Do
Input #1, linea
txtfile.Text = txtfile & linea & vbCrLf
Loop Until EOF(1) = True
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

fin qui tutto bene

Il problema si pone quando apro un file con un listato abbastanza lungo; nella textbox viene aperto solo metà listato

come posso recuperare il resto??????

lungo quanto?
a me va e il file era veramente lungo...
e poi perchè non utilizzare la rich textbox...

circa 4000 righe

però la cosa strana e che se nel file originale seleziono tutto copio e poi vado ad incollare nella textbox, le 4000 righe me le fa vedere....

non uso la rich text box, perchè quando vado a salvare il file aperto e modificato, mi iserisce, oltre al testo, dei codici tipo \par e altre robe

Si incontra questo problema quando il file ha delle interruzioni.

Option Explicit
Dim path As String
Dim linea As String


Private Sub btnapri_Click()
txtfile.Text = ""
On Error GoTo fine
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
Open path For Input As #1
Do
Line Input #1, linea
txtfile.Text = txtfile.Text & linea & vbCrLf
Loop Until EOF(1) = True
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

con una rich textbox.

Era un po'che non postavo(un po'tanto). Comunque io eviterei di caricare il file linea per linea. Ti conviene allocare spazio in una variabile, caricare l'intero file nella variabile e poi passarlo alla txtbox

Ora ci provo vi farò sapere

GRAZIE MILLE A TUTTIIIIIIIIIIIIIIIII