Private Sub WasAuchImmer(ByVal Inputfile As String, ByVal outputfile As String, _
                ByVal StringToFind As String, ByVal StringToInsert As String)
 
On Error GoTo fehler
 
Dim ik As Integer, ak As Integer
Dim line As String, parts() As String
 
ik = FreeFile
 
Open Inputfile For Input As #ik
ak = FreeFile
Open outputfile For Output As #ak
 
While Not EOF(ik)
   Line Input #ik, line
   Write #ak, line
   If InStr(line, StringToFind) > 0 Then      
      parts = Split(line, " ")
      Write #ak, parts(0) & "  " & StringToInsert
   End If
Wend
 
Close
Exit Sub
 
fehler:
 
MsgBox "Fehler bei Dateibearbeitung: " & Err.Description
Close
End Sub