Something like this should work
[tt]
Dim FName As String, FNumb As Integer, TextLine As String, I As Integer
FName = "Your Path To File"
FNumb = FreeFile
Open FName For Input As #FNumb
For I = 1 To 8
If EOF(FNumb) Then Exit For
Line Input #FNumb, TextLine
If EOF(FNumb) Then Exit For
Next I
'I should = 9 if it did not reach eof first and TextLine should contain your string
[/tt]
Good Luck