Private Sub Command1_Click _
    ( _
    )
    Dim f As Long
    Dim d As String
    Dim Begriff As String
    Dim Result As String
    On Error GoTo Errorhandler
 
    'Schreiben
    g = FreeFile
    Open "D:\Riva_ejour\LF\2005\Düsseldorf05.txt" For Append As #g
    'lesen
    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
            'Schreiben des Ergebnisses
            Write #g, Result
       End If
    Wend
    'Schliesen der Beide Dateien
    Close #f
    Close #g
    Exit Sub
Errorhandler:
    Close #f
    Close #g
End Sub