Per recuperare l’intero contenuto di un file di testo è possibile utilizzare la funzione riportata di seguito:

Private Function LeggiFile(File As String) As
String
Dim Riga As String
Dim NumFile As Integer
NumFile = FreeFile
Open File For Input As NumFile
While Not EOF(NumFile)
Input #NumFile, Riga
LeggiFile = LeggiFile & Riga &
vbCrLf
Wend
Close (NumFile)
End Function

Ad esempio, per leggere il file Prova.txt, salvato nella cartella Documenti, e visualizzarlo in una casella di testo, l’istruzione da utilizzare è la seguente:

Text93.Text = LeggiFile("C:\Documenti\Prova.txt")