Public Sub Ersetzen(Suchstring As String, Newstring As String)
 
Dim ZeilenText(1000) As String  ' max 1000 Zeilen einlesen
Dim F As Integer
Dim FN As Integer
 
 
F = FreeFile
Open App.path & "\1.txt" For Input As #F
Zeilenindex = 0
While Not EOF(1)
    Zeilenindex = Zeilenindex + 1
    Input #F, ZeilenText(Zeilenindex)
    maxZeilen = Zeilenindex ' Speichern der kompletten Zeilenanzahl der Datei
Wend
 
For i = 1 To maxZeilen
' Wenn ein Vergleich TRUE ist, d.H. in einer Zeile das gesuchte Wort gefunden 
' worden ist
    If InStr(ZeilenText(i), Suchstring) <> 0 Then
 
 
        ZeilenText(i + 1) = Left(ZeilenText(i), InStr(ZeilenText(i), _
          Suchstring) - 1) & Newstring & Right(ZeilenText(i), Len(ZeilenText( _
          i)) - InStr(ZeilenText(i), Suchstring) - Len(Suchstring) + 1)
 
    End If
Next
 
FN = FreeFile
Open App.path & "\2.txt" For Output As #FN
For i = 1 To maxZeilen
' Wieder auf Platte schreiben
    Print #FN, ZeilenText(i)
Next
Close #FN
 
End Sub