Infatti, ho sbagliato a scriverti il codice:

codice:
open "nomefile" For Binary As #2 
do while not eof(#2)
    Line input #2, datiLetti 
    Text1.text = text1.text & datiLetti 
loop
close #2
Imposta la textbox come multilinea(vedi nelle sue proprietà)
Ciao