need for some code to add in a counter??

Sub LargeFileImport()
Dim Datafile As Variant
Dim ResultStr As String
Dim g As String
Dim FileNum As Integer
Dim Counter As Variant
Dim CounterMax As Variant
Dim sPath As String
Dim FileCounter As Integer
Dim FileName As String
    
    'Output File
    FileCounter = 1
    sPath = "C:\testing\temp_" & FileCounter & ".txt"
    'Number of Records in Each Text File
    CounterMax = 64500
    'Call Auto_Open
    'Ask User for File's Name
    Application.DefaultFilePath = ThisWorkbook.Path
    
    Datafile = Application.GetOpenFilename(Title:="Need to locate the Northern Trust Benefit Payment.TXT file. Try Pension Accounting\200X DB Plans... ")
    If Datafile = False Then
        MsgBox "Please help me find the location of the Northern Trust Benefit Payment.TXT file"
        Datafile = Application.GetOpenFilename(Title:="Please locate the Northern Trust Benefit Payment.TXT file")
        If Datafile = False Then
            Exit Sub
        End If
    End If
    ' Opens the data file and imports just the relevant columns
    'FileName = "C:\Account Analysis - (180 Char)_030106.txt"
    'Check for no entry
    FileName = Datafile
    'Get Next Available File Handle Number
    FileNum = FreeFile()
    'Open Text File For Input
    Open FileName For Input As #FileNum
        'Get Next Available File Handle Number
        g = FreeFile()
        'Open Text File For Output
        Open sPath For Output As #g
        'Turn Screen Updating Off
        'Application.ScreenUpdating = False
        'Set The Counter to 1
        Counter = 1
    
        'Loop Until the End Of File Is Reached
        
        Do While Seek(FileNum) <= LOF(FileNum)
            'Display Importing Row Number On Status Bar
            Application.StatusBar = "Importing Row " & _
            Counter & " of text file " & FileName
            'Store One Line Of Text From File To Variable
            Line Input #FileNum, ResultStr
            If Left(ResultStr, 14) <> "NORTHERN TRUST" Then
                'Output One Line Of Text From Variable To File
                Print #g, ResultStr
            Else
    
                Close #g
                'Open a New Ouput File
                FileCounter = FileCounter + 1
                sPath = "C:\testing\temp_" & FileCounter & ".txt"
                g = FreeFile()
                Open sPath For Output As #g
            End If
        'Increment the Counter By 1
        Counter = Counter + 1
        'Start Again At Top Of 'Do While' Statement
        Loop
        'Close The Open Text File
        Close #g
    Close #FileNum
    'Remove Message From Status Bar
    Application.StatusBar = False
    MsgBox "Great, that's Completed! Next step is to pull in the .TXT and convert it to .XLS Just say OK"

End Sub