TextfileToTxt

Public Function LeggiFileTXT(NomeFile As String) As String
Dim NumeroFile As Integer
NumeroFile = FreeFile
'Apro il file

Open NomeFile For Input As NumeroFile
'Leggo tutto il file

LeggiFileTXT = Input$(LOF(NumeroFile), NumeroFile)
'chiudo il file

Close NumeroFile
End Function

Inserire il seguente codice in un modulo BAS
Funzione per leggere l'intero contenuto di un file
Uso: Text1.Text = LeggiFileTXT("C:\bootlog.txt")