con il seguente codice, apro un file di testo in una textbox,
dopo averla settata a multiline:

f = FreeFile
Open "c:\windows\desktop\comuni.txt" For Input As #f
Do While Not EOF(f)
Line Input #f, dato
Text1.Text = Text1.Text & dato & vbCrLf
Loop
Close #f

ma se il file è grosso, ad es. circa 8000 righe mi da il
seguente errore:
run time error "7"
out of memory

Come posso evitarlo?
Grazie in anticipo.