Puoi usare il seguente codice:

Private Sub Command1_Click()
Dim riga As String
'Apro il file in Input (Lettura)
Open "c:\prova.txt" For Input As #1 'il numero 1 indica il 'canale' 1
'(nelle successive istruzioni il file sarà indicato con 1)
While Not EOF(1) ' ciclo fino a fine file (EOF- End of File)
Input #1, riga 'Leggo una riga (e ne inserisco il valore nella variabile 'riga')
Text1.Text = Text1.Text & vbCrLf & riga 'aggiungo al textbox la riga
Wend
End Sub

Ovviamente il codice prevede che nel form siano presenti un commandButton (Command1) e un textBox (Text1).

Spero sia abbastanza chiaro, fammi sapere...
Ciao!!:quipy: