Private Sub Command1_Click()
Dim f As Long, d As String, Begriff As String, Result As String
 
f = FreeFile
Open "D:\Riva_ejour\LF\2005\2005Düsseldorf.txt" For Input As #f
    While Not EOF(f)
    Line Input #f, d
       If d Like "Staff Disc" Then
           Result = d & ";"
           Line Input #f, d
             Result = Result & d & ";"
           Line Input #f, d
             Result = Result & d & ";"
           Line Input #f, d
             Result = Result & d
           GoTo Fertig
       End If
    Wend
 
Fertig:
 
g = FreeFile
Open "D:\Riva_ejour\LF\2005\Düsseldorf05.txt" For Append As #g
Write #g, Result
Close #g
Close #f
End Sub