Ayuda con VB6 Formulario

Ayer un experto me ayudo proporcionándome un código que 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
Este sirve para cargar el txt y vaciar sus datos al formulario.
pero marca error al ejecutarlo en
Input #1, Ide, Nom, Ape, Fol, Tel, Cod
Run time error 62
Input past end of file
Gracias por toda la ayuda. Saludos