Making A FSO searcher -

        Dim MyReader As Microsoft.VisualBasic.FileIO.TextFieldParser
        Dim objFSO As String

        Dim sFilename As String
        Dim sFileBuffer As String
        Dim sSearch As String
        Dim bVal As Boolean



        sFilename = "c:\Scans\test.txt" 'Form1.txtLocat.Text
        sSearch = txtFind.Text

        'objFSO = CreateObject("Scripting.FileSystem Object")

        MyReader = My.Computer.FileSystem.OpenTextFieldParser(sFilename)

        sFileBuffer = MyReader.ReadToEnd

        If InStr(1, sFileBuffer, sSearch, vbTextCompare) <> 0 Then
            bVal = True
            MsgBox("found")

        Else
            bVal = False
            MsgBox("not found")
        End If



        MyReader.Close()

        MyReader = Nothing
        objFSO = Nothing