TextToTextBox

'Uso: Text1.Text = LeggiFileTXT("C:\bootlog.txt")

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