ASP Regular Replacement function

Function Regexptest (PATRN,STR1,STRNG)
Dim regEx ', str1 ' build variable
' str1 = "The quick brown fox jumped over the lazy dog."
Set regex = New RegExp ' Establish regular expression
Regex.pattern = Patrn ' setup mode
Regex.ignorecase = True ' setting is case-sensitive
' Regexptest = regex.test (strng) ' Perform the search
Regexptest = Regex.Replace (str1,strng)
End Function
Response.Write Regexptest ("Fox", "The quick brown fox jumped over the lazy dog.", "IS1 is2 IS3 is4") ' (regular expression to be replaced by the original string, replaced by the Characters