Reading Text Files Into Excel (.Read) and Searching Them

I am trying to read a .txt file (using .Read within VBA):

     filename = "h:\MS1\RccsDiagLog[RCCS_1]Rx26May07033507Rx.txt"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(filename, 1, TristateFalse)

    data = f.read(10)

and get the output formatted and into excel. The problem that I am having is trying to search the file stream for a particular sequence of characters i.e. a double carriage return ( chr(13) & chr(10) & chr(13) ). However, I have no idea how to do this, can anyone help me?

If this isn't possible I am willing to use another file reading method

Thanks,

Mortonic

There is a simple way that doesn't require any reference and that automatically parses on CR/LF:

Sub test()
    Filename = "C:\Test.txt"
    Open Filename For Input As #1
   Do While Not EOF(1)
      Input #1, Data1, Data2
    Loop
    Close #1
    MsgBox Data1
    MsgBox Data2
End Sub

Thanks for your help but how do I use that to search for a carriage return followed by a line feed?

This has been tested:

Sub test()
    Filename = "Retest.txt"
    Open Filename For Input As #1
   Do While Not EOF(1)
      Input #1, Data1
    t = Chr(10) & Chr(10)
    MsgBox InStr(1, Data1, t, vbBinaryCompare)
    Loop
    Close #1
End Sub