Me alegra que lo tengas claro pero en ningún sitio decías que era con .NET y por el método de apertura de fichero pensé que era de vb6.
Aqui te dejo otra manera, ok.
Código:
Dim cadena As String
cadena = "c:\prueba.txt"
FileOpen(1, cadena, OpenMode.Input)
Do While Not EOF(1)
MsgBox(LineInput(1))
Loop
FileClose(1)
Un cordial saludo.