VB6 grossi files di testo

[3dpmr]

Sono proprio un novizio in VB6 e sto cercando di trasportare un script vbs in un file VB6
Si tratta di leggere e modificare alcune linee di un file di testo molto grande (un file di oggetto 3d)
in vbs il codice funziona perfettamente ma in VB6 il form s'impianta.
Se il file è piccolo tutto funziona regolarmente ma quando apro un file molto grosso (c.a 2Mb) il form s'impianta.

ecco il codice di lettura del file:
Sub LeggeFileCr2()
Dim fso, objFile As Object
Dim i As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(percorso, 1, True)
Do While Not objFile.AtEndOfStream
StrLinea = objFile.ReadLine()
i = i + 1
linee(i) = StrLinea
If i = 1 Then
strLetto = StrLinea
Else
strLetto = strLetto & vbCr & StrLinea
End If
Loop

objFile.Close
Set objFile = Nothing
Set fso = Nothing
Text1.Text = "Fine lettura"
End Sub

Con file piccoli il codice funziona bene ma con files grossi si blocca. c'è un sistema per ovviare a questo?
Grazie a tutti coloro che mi aiuterano

[I'mtheleader]

Ti conviene usare la openfile e poi dirgli mentre non ha ancora finito di aprire il file di salvarti ogni riga in una var

Dim riga as string
Dim tot as string
Open "PercorsoFile" for binary as freefile
while not eof(1)
line input #1,riga
tot=tot & chr(13) & chr(10) & riga
wend

A questo punto tutto il contenuto del file è nella variabile tot ed è facilmente modificabile.

Ciao ciao