Dim sInhalt As String
Dim F As Integer
 
<font color=green>' Datei öffnen und Inhalt auslesen</font>
F = FreeFile
Open Filename For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
<font color=green>' Jetzt Text ersetzen</font>
sInhalt = Replace(sInhalt, "txt", "doc")
 
<font color=green>' Text wieder in Datei speichern</font>
F = FreeFile
Open Filename For Output As #F
Print #F, sInhalt;
Close #F