Visual Basic - problema con ficheros

Si Visual Basic da el problema de: "Error 62 en tiempo de ejecución : La entrada de datos ha sobrepasado el final del archivo"

Private Sub Form_Load()
Open App.Path & "\alquiler.txt" For Input As #1

Data1.Connect = "Access"
Data1.DatabaseName = App.Path & "\bd3.mdb"
Data1.RecordSource = "SOCIOS"
Data1.Refresh

'Se carga la combo con los socios que tienen alquiler
While Not EOF(1)
Input #1, num1, codsoc, codpeli1, precio, fechaalq, fechadev, ret, sancion, dev
ComboBusqueda.AddItem (codsoc)
Wend
Close

End Sub

El fichero alquiler.txt está vacio y el error lo da en el Input #1, es decir, al intentar abrir el archivo. Por favor, si alguien supiese solucionarlo y pudiese exarme un cable se lo agradeceria muxo. 1Saludo y Buena Semana Santa para todos!

El fichero posiblemente no esté completamente vacío, tal vez tenga al principio algún "Enter" (caracteres 13 y 10 de la tabla ASCII). Si estuviese vacío jamás entraría al ciclo "While Not EOF(1)" y tampoco te daría error.
Para averiguar cuál es el dato que no leyó y que ocasionó el error no leas los datos con una sola instruccion Input, sino con una por cada variable:
Input #1, num1
Input #1, codsoc
Input #1, codpeli1
Input #1, precio
Input #1, fechaalq
Input #1, fechadev
Input #1, ret
Input #1, sancion
Input #1, dev
Al menos podrás identificar cuál es el dato que no pudo leer.

muxas gracias d verdad :D