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