Dim str
str = "aBbc"

Set objRegEx = New RegExp
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "b"
str = objRegEx.Replace (str, "a")
MsgBox str

Dim fso, stream, str, re, name
name = "page2.html"
Const ForWriting = 2, TristateUseDefault = -2
Set fso = CreateObject("Scripting.FileSystemObject")
 str = Replace(str, "–", "-")

'Set stream = fso.OpenTextFile("page_lot2.html",ForWriting, True ,TristateUseDefault)
stream.Write(str)
stream.Close
Set stream = Nothing

'Constant  Value  Description
'TristateUseDefault  -2  Opens the file using the system default.
'TristateTrue  -1  Opens the file as Unicode.
'TristateFalse   0  Opens the file as ASCII.
Dim fso, stream, str, re, name
name = "moa.html"
Const ForReading = 1, ForWriting = 2, TristateTrue = -1, TristateFalse = 0, TristateUseDefault = -2
Set fso = CreateObject("Scripting.FileSystemObject")

Set stream = fso.OpenTextFile(name , ForReading, False, TristateFalse)
str = stream.ReadAll()
stream.Close
Set stream = Nothing

myResult = "<table border=" & Chr(34) & "1" & Chr(34) & ">" & myResult & "</table>"