Cómo leer archivos de texto en VB como el genial robot Q

Pregunta?Como?Cadena

Respuesta?Como?Cadena

Fin?Tipo

¿Privado?Sub? Command1_Click()

¿Dim?Reply() es Q2A, i es Long, s es String

¿Open?"e:\tmp\1.txt"? "Para "Ingresar" como "#1

Hacer "Hasta "EOF(1)

ReDim "Conservar "Reply() "i")

Línea "Entrada"#1, "Respuesta(i).Pregunta"

¿Si es "EOF(1)"? ¿Salir?Do

Línea?Entrada?#1,?s

i?=?i?+?1

Bucle

For?i?=?0?To?UBound(Responder)

Imprimir?"Preguntar:"? &?Reply(i).Pregunta

Imprimir?"

Respuesta: "? &?Respuesta(i).Respuesta

Imprimir

Siguiente

Fin?