Replace vha. RegExp

Jeg har nedenstående kode, som virker fint når jeg skal erstatte noget
tekst, som ikke indeholder tegnet . (punktum) eller \\ (backslash)
har det noget med MO_RegExp.Pattern at gøre og hvordan ændres den evt., det
hjælper nemlig ikke noget bare at fjerne den linie.

<%
Function ErstatOrd(MO_Streng, MO_Ord, MO_Tag1)
    Set MO_RegExp = New RegExp

    MO_RegExp.Pattern    = \"([\\?\\*\\+\\.\\|\\{\\}\\\\\\[\\]\\(\\)])\"
    MO_RegExp.IgnoreCase  = True
    MO_RegExp.Global      = True
    MO_Ord                = MO_RegExp.Replace((MO_Ord), \"\\\\$1\")
    MO_RegExp.Pattern    = \"(\" & (MO_Ord) & \")\"

    ErstatOrd = MO_RegExp.Replace(MO_Streng, MO_Tag1)

    Set MO_RegExp = Nothing
End Function

\'Disse to linier virker ikke
response.write ErstatOrd(\"i denne tekst skal fil1.txt erstattes med
fil2.htm\",\"fil1.txt\",\"fil2.htm\") & \"<br>\"
response.write ErstatOrd(\"i denne tekst skal tekst1/fff erstattes med
tekst2\",\"tekst1]fff\",\"tekst2\")

\'Denne virker fint
response.write ErstatOrd(\"i denne tekst skal 111 erstattes med
222\",\"111\",\"222\")
%>


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk