Why does my Loop end after 11 Loops?

[bplus]

Here ye go!

Code: (Select All)

Open "The file" For Input As #1
Recur
Sub Recur
    '  Seek #1, 1  <<< this is going to mess you up with infinite loop
    If Not EOF(1) Then
        For i = 1 To 7
            'Input the 7 data items
        Next
        DataCount = DataCount + 1
        'Call to the Subroutine to deal with the 7 data items
        do7
        ' If DataCount = 4000 Then Exit Sub ' don't need this restriction either! allow any amount data
        Recur
    Else
        Close #1
        'and report to the principle
    End If
End Sub

Sub do7
End Sub