Ayuda sobre código par cargar TXT a form de VB6

Buen día:
El día de ayer un experto me ayudo con un código para cargar un txt dentro de un form el código es el siguiente
Dim Ide As String
Dim Nom As String
Dim Ape As String
Dim Fol As String
Dim Tel As String
Dim Cod As String
Private Sub Leer_Click()
Movto = "C:\Prueba.txt"
Open Movto For Input As #1
Do While Not EOF(1)
Input #1, Ide, Nom, Ape, Fol, Tel, Cod
Loop
Close #1
Text1 = Ide
Text2 = Nom
Text3 = Ape
Text4 = Fol
Text5 = Cod
End Sub
El problema se me presenta al ejecutar el código porque se detiene en el campo
Input #1, Ide, Nom, Ape, Fol, Tel, Cod
Y de ahí ya no continua me da el siguiente error:
Runtime Error 65
Input past end of file
Y no se que pueda ser espero me puedan ayudar. Saludos