Private Declare Function QueryPerformanceCounter Lib "kernel32" ( _
  lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency _
As Currency) As Long
 
Private Sub cmdSearch_Click()
Dim lngI As Long
Dim lngJ As Long
Dim lngPos As Long
Dim intCount As Integer
Dim intFile As Integer
Dim strRecord As String
Dim strSearch As String
Dim boFinished As Boolean
Dim lngReturn As Long
Dim curThen As Currency
Dim curNow As Currency
Dim curFreq As Currency
Dim strData As String
 
intFile = FreeFile
lngReturn = QueryPerformanceFrequency(curFreq)
'
' Open the file and read it into memory
'
Open "C:\Documents and Settings\Einet\Ambiente de trabalho\EPM" & _
  "Systray\search\New\CIG-WX BOARD CERTIFICATES.xls" For Input As intFile
lngReturn = QueryPerformanceCounter(curThen)
strData = Input(LOF(intFile), intFile)
lngReturn = QueryPerformanceCounter(curNow)
MsgBox "Time to read complete file: " & Format(((curNow - curThen) * 1000) / _
  curFreq, "0.00") & " mS"
Close intFile
'
' Set-up the search, open the results file
'
strSearch = "NOT OK"
lngJ = 1
intFile = FreeFile
Open "C:\LargeSearch.txt" For Output As intFile
lngReturn = QueryPerformanceCounter(curThen)
Do
    lngPos = InStr(lngJ, strData, strSearch)
    If lngPos > 0 Then
        '
        ' Found what we were looking for
        ' Find the start of this record (lngI)
        ' and the end of this record (lngJ)
        ' extract the entire record and write it
        ' to the results file
        '
        lngI = InStrRev(strData, vbLf, lngPos) + 1
        If lngI = 0 Then lngI = 1
        lngJ = InStr(lngPos, strData, vbCr)
        If lngJ = 0 Then lngJ = Len(strData) + 1
        strRecord = Mid$(strData, lngI, lngJ - lngI)
        Print #intFile, strRecord
        intCount = intCount + 1
        '
        ' Set the start point for the next search
        '
        lngJ = lngJ + 2
    Else
        boFinished = True
    End If
Loop Until boFinished = True
lngReturn = QueryPerformanceCounter(curNow)
Close intFile
MsgBox "Search Complete in " & Format(((curNow - curThen) * 1000) / curFreq, _
  "0.00") & " mS " _
        & CStr(intCount) & " Records Found"
End Sub