Поиск по тексту - VB

Формулировка задачи:

Доброго времени суток. Сделал маленькую прогу на VB6, осталось реализовать поиск по файлу *.txt
Выглядит примерно так: есть два поля и кнопка, в одно поле вводим текст и после нажатия на кнопку, из ранее созданного файла, во втором поле появляется строка содержащая этот набор текста.
Не могу докумекать как будет выглядеть код программы.
Заранее благодарен.

Решение задачи: «Поиск по тексту»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    
    Dim cFind$, cLine$, nLine&, nPos&
    
    cFind = Trim(Me.Text1.Text)
    If Len(cFind) = 0 Then
        Me.Label2.Caption = "Nothing to find"
        Exit Sub
    End If
    
    cLine = ""
    nLine = 0
    nPos = 0
    Open App.Path & "\DATA.TXT" For Input As #1
    Do While Not EOF(1)
        Line Input #1, cLine
        nLine = nLine + 1
        nPos = InStr(1, cLine, cFind, vbTextCompare)
        If nPos > 0 Then Exit Do
    Loop
    Close #1
    If nPos = 0 Then
        Me.Label2.Caption = "Not found"
        Exit Sub
    End If
    
    With Me.Text2
        .Text = cLine
        .SelStart = nPos - 1
        .SelLength = Len(cFind)
        .SetFocus
    End With
    Me.Label2.Caption = "Line: " & nLine & " Pos: " & nPos
    
End Sub

                        