Hurtig søgning i en fil

Hvordan kan jeg lave er hurtig søgning i en fil, har lavet noget kode, men det tager langtid for at søge ca 2MB fil igennem hvad kan man lave om?

Skal lige siges at den skal sendes som en fil til et andet program, det er alså ikke explore som skal læse det.

<%
  Response.expires = 0
  Response.expiresabsolute = Now() - 1
  Response.addHeader "pragma", "no-cache"
  Response.addHeader "cache-control", "private"
  Response.CacheControl = "no-cache"
  Response.Buffer = True
  Response.ContentType = "text/html"
%>

<%
  Dim fso
  Dim f
  Dim strQ
  Dim filespec
  Dim i
  Dim arrLine
  Dim strLine
  Dim NotInStr
  Dim strOut

  strQ = Request.Querystring("q") ' Søge string.

  filespec = Server.Mappath("/search/search.txt") ' Søge i filen.

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(filespec, 1)
    Do While Not f.AtEndOfStream
      strLine = f.ReadLine
      arrLine = Split(strQ, " ") ' Splitter SPACE op
      For i = 0 To UBound(arrLine)
        NotInStr = False
        If InStr(1, strLine, arrLine(i), vbTextCompare) = 0 Then ' Søger efter string
            NotInStr = True
          Exit For
        End If
      Next
      If NotInStr = False Then
        strOut = strOut & strLine & vbCrLf ' Tilføjer string
      End If
    Loop
  f.Close
%>

<%
  Response.Write strOut ' Viser søgningen.
  Response.End
%>