Dim F As Integer
Dim sInhalt As String
Dim sSuch As String
Dim sErsetz As String
Dim sFilename As String
 
<font color=green>' Dateiname</font>
sFilename = "DeineTextdatei.txt"
 
<font color=green>' Datei "binär" öffnen und Inhalt einlesen</font>
F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
<font color=green>' Jetzt Suchen und Ersetzen per "Replace"-Funktion</font>
sSuch = "0216c": sErsetz = "10216c"
sInhalt = Replace(sInhalt, sSuch, sErsetz)
 
<font color=green>' Neuen Inhalt speichern
' ACHTUNG! Alter Inhalt der Textdatei wird überschrieben!</font>
Kill sFilename
 
F = FreeFile
Open sFilename For Binary As #F
Put #F, , sInhalt
Close #F