Dim f as long, d as String,Begriff as String, Result as String 
 
f = Freefile
Open DATEINAME For Input As #f
    While Not EOF(g) 
    Line Input #f, d
       if Begriff = d 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:
Close #f