Come posso recuperare l'intero contenuto di un file di testo?

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:DocumentiProva.txt”)