Help me plz ! emergency

[AlirezaAghasi]

help me on this error
input past end of file

Dim IntFileNum As Integer
Dim level As Double
Dim Z As Double
Dim counter As Integer
Dim Ts As Double
Dim StrSide As Double
counter = 0
IntFileNum = FreeFile
Open "\\Cad1\temp\Ag hasi\Agitation\ My Version\vesselc apacity.dat" For Input As #IntFileNum
Do Until (EOF(10) = True)
Input #10, Ts, StrSide
If Ts = T Then
counter = 1
End If
Loop
Close #IntFileNum
If counter = 1 Then
alpha = MsgBox(" F U ", vbOKOnly)
If alpha = 1 Then
End
End If
End If

[albertw]

help me on this error
input past end of file

Dim IntFileNum As Integer
Dim level As Double
Dim Z As Double
Dim counter As Integer
Dim Ts As Double
Dim StrSide As Double
counter = 0
IntFileNum = FreeFile
Open "\\Cad1\temp\Ag hasi\Agitation\ My Version\vesselc apacity.dat" For Input As #IntFileNum
Do Until (EOF(10) = True)
Input #10, Ts, StrSide
If Ts = T Then
counter = 1
End If
Loop
Close #IntFileNum
If counter = 1 Then
alpha = MsgBox(" F U ", vbOKOnly)
If alpha = 1 Then
End
End If
End If

hi
seems your freefile function is ignored by yourself.
try
while not eof(IntFileNum)

[Killer42]

hi
seems your freefile function is ignored by yourself.
try
while not eof(IntFileNum)

Also Input #IntFileNum, Ts, StrSide

Another thing to consider - does your Input of Ts and StrSide correctly match the format of the data in the file?