per leggere: (l'ho ttrovata sulle guide del sito!
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




Private Sub Command1_Click()
Label1.Caption = LeggiFile("C:\Prova.txt")
End Sub