Open sFile For Input As #F
Do While Not EOF(F)                 ' Schleife bis Dateiende.
    Line Input #1, inzeile          ' 1. Zeile in Variable einlesen.
    If Text1.Text = inzeile Then    ' wenn getroffen => Text2.txt einlesen
        Line Input #F, inzeile
        Text2.Text = inzeile        ' sonst weiter
        Exit Do
    End If
Loop
Close #F