¿Cómo resuelvo el problema de Error 62 La entrada de datos a sobrepasado el archivo en visual basic?

Hola, bueno yo soy nueva en esto de manejar visual y ahora ando haciendo una aplicación para llevar el control de un almacen de abarrotes, y todo va de maravilla cuando salvaje error aparece :
Error '62' en tiempo de ejecución : La entrada de datos a sobrepasado el archivo.
Me aparece este error en esta área resaltada en negritas.

Private Sub CmdBuscar_Click()
Dim cla2, Existencia2 As Long
Dim nom2 As String
Dim PreComp2, PreVent2 As Currency
Clabus2 = TxtClabus2
Open "E:\Almacen.dat" For Input As #1
While Not EOF(1)
Input #1, cla2, nom2, PreComp2, PreVent2, Existencia2
If cla2 = Clabus2 Then
TxtNom2 = nom2
TxtPreComp2 = PreComp2
TxtPreVent2 = PreVent2
TxtExistencia2 = Existencia2
End If
Wend
Close #1
End Sub

Ojala puedan ayudarme, realmente ya me arranque los cabellos de estrés.