I have two files that i have to use DIR , THE PROBLEM is when
i go to read the other record in the file "in" the job freeze
HOW I GET THE SECOND RECORD IN THE FILE "IN"

help me please

inti = Dir("C:\Documents and Settings\Cesar\Desktop\in\*.*")
'If sw = 1 Then Let inti = wstempin
Let asum = Mid$(inti, 15, 8)

CES = Dir("C:\Documents and settings\Cesar\Desktop\rejected\*.*")
rtn1:
Let ASUM1 = Mid$(CES, 15, 8)
If CES = "" Then
GoTo PREFIN
ElseIf asum = ASUM1 Then
Let T = T + 1
FileCopy "C:\Documents and Settings\Cesar\Desktop\rejected\" & CES, "C:\Documents and Settings\Cesar\Desktop\out\" & CES
CES = Dir
GoTo rtn1
Else
CES = Dir
GoTo rtn1
End If

PREFIN:

Print T