<code>Dim F As Integer
Dim sInhalt As String
Dim sFilename As String
Dim lPos As Long
Dim lLen As Long
Dim charNew As String
 
sFilename = "DeineDatei.txt"
 
<font color=green>' Datei komplett auslesen</font>
F = FreeFile
Open sFilename For Binary As #F
Get #F, , sInhalt
Close #F
 
<font color=green>' Zeichen ersetzen</font>
lPos = 5: lLen = 3
charNew = "*"
sInhalt = Left$(sInhalt, lPos - 1) & charNew & Mid$(sInhalt, lPos + lLen)
 
<font color=green>' Inhalt wieder speichern</font>
F = FreeFile
Open sFilename For Binary As #F
Print #F, sInhalt;
Close #F</code>