Text file search in Excel VBA

Sub FindText()
Dim i As Integer

'Search criteria
With Application.FileSearch
    .LookIn = "c:\my documents\logs" 'path to look in
    .FileType = msoFileTypeAllFiles
    .SearchSubFolders = False
    .TextOrProperty = "*Find*" 'Word to find in this line
    .Execute 'start search

'This loop will bring up a message box with the name of
'each file that meets the search criteria
    For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(i)
    Next i

End With

End Sub

Option ExplicitSub FindRecords()
Dim Path, OutPath, FileName, tempPath, sTemp, CountName As String
Dim intFic, OutFile As Integer
Dim txtLine As String
Dim i, j, x, Count As Long
Dim retval




'Count # of lines
j = Range(Cells(5, 1), Cells(5, 1).End(xlDown)).Count


'Determine the general path to the folder
Path = Cells(1, 2).Value
'Dir the file to retrieve first file
CountName = Dir(Path)
'Count the number of files on the path
Do While CountName <> ""
    Count = Count + 1
    CountName = Dir()
Loop
Debug.Print Count
x = 0


'Dir the file to retrieve first file
FileName = Dir(Path)


'Loop through all the files and testing content
Do While FileName <> ""
    Debug.Print FileName
    tempPath = Path & FileName
    'Open the txt file currently being analyzed
    intFic = FreeFile
    Open tempPath For Input As intFic
        While Not EOF(intFic)
            Line Input #intFic, txtLine
                'Debug.Print txtLine
                For i = 5 To j + 4
                    If InStr(txtLine, Cells(i, 1).Value) Then
                        If InStr(txtLine, Format(Cells(i, 2), "yyyy-mm-dd")) Then
                            If InStr(txtLine, Cells(i, 3).Value) Then
                                sTemp = sTemp & txtLine & vbCrLf
                                Cells(i, 6) = FileName
                            End If
                        End If
                    End If
                Next i
        Wend
        'Debug.Print sTemp
        Close intFic
    FileName = Dir()
    x = x + 1
    Application.StatusBar = x & "/" & Count & "-" & FileName
Loop


'Generate the ouput file
OutPath = Path & "Results\"
OutFile = FreeFile
Open OutPath & "Query " & Format(Date, "yyyymmdd") & ".txt" For Output As OutFile
Print #OutFile, sTemp
Close OutFile
Application.StatusBar = False
End Sub