Dim sText As String
    Dim sSearchFor As String
    Dim i As Integer
 
    sSearchFor = "blabla"
    i = 0
 
    Open File For Input As #1
 
    Do While EOF(1) = False
        i = i + 1
        Line Input #1, sText
 
        If InStr(1, sText, sSearchFor) <> 0 Then
            Exit Do
        End If
    Loop
 
    Close #1