A tutti quest sembrerebbe un articolo sensa senzo,come leggere un file di testo lo troviamoda tutte le parti ma se in questo file c'è il carattereCtrl-Z(EOF) l'apertura fallisce con un errore,una soluzione é specificata qui

IN UN MODULO

Function LeggiFile(ByVal filename As String) As String
Dim handle As Integer
If Len(Dir$(filename)) = 0 Then
Err.Raise 53 'file non trovato
End If
handle = FreeFile
Open filename$ For Binary As #handle
LeggiFile = Space$(LOF(handle))
Get #handle, ,LeggiFile
Close #handle

Per richiamare la funzione

Text1.Text = LeggiFile(xxx.txt)