Option Explicit
 
Private FS As New FileSystemObject
 
Private Sub Command1_Click()
    Dim File As TextStream
    Dim Text As String
 
    Set File = FS.OpenTextFile(App.Path & "\test.htm", ForReading)
    Text = File.ReadAll
    File.Close
 
    Set File = Nothing
 
    Set File = FS.OpenTextFile(App.Path & "\test.htm", ForWriting)
    File.Write Replace(Text, "das", "durchdas")
    File.Close
End Sub