Visual Basic - Ayuda con archvios y modulos

Tengo q realizar un programa donde tengo en un archivo dat de block de notas 3 renglones y eso los quiero mandar cada renglona un textbox diferente, pienso q es con un modulo pero solo me lee la 1 linea los demas no, asi lo intente: primero lo pase a un list y luego alos text box pero no quiere, allguien me puede ayudar????

Private Sub Form_Load()
Dim dat As datos
Dim x As String
Dim i As Integer
i = 0
Open "A:\Datos\azteca.dat" For Input As #1
Do
Input #1, x
List1.List(i) = x
i = i + 1
Loop While EOF(1)

Text1.Text = List1.List(0)
Text2.Text = List1.List(1)
Text3.Text = List1.List(2)
Close #1

End Sub

cambia

Loop While EOF(1)

por

Loop While not EOF(1)

y no te olvides de cerrar el archivo

close #1

si quieres evitar el list, sustituye los text por text(0), text(1) y text(2)
y coloca en la línea

List1.List(i) = x

esta otra

text(i).text=x

saludos

Si siempre tenés 3 líneas podés hacerlo asi evitando el uso del List:

Private Sub Form_Load()
Dim x As String

Open "A:\Datos\azteca.dat" For Input As #1
Line Input #1, x
Text1.Text = x
Line Input #1, x
Text2.Text = x
Line Input #1, x
Text3.Text = x
Close #1

End Sub

Gracias