Leer un archivo de texto en Visual Basic 6.0 (VB 6.0)

Abre el archivo: Open "C:\Prueba.txt" for input as A

Lo lee con:

Declara variables: Dim Linea as String, Total as String

do until eof(1)
MsgBox (Linea)
Todas = Todas + Linea + vbcrlf
MsgBox (Todas)
loop

Cierra el archivo: close A