ASP regular function replaces paginated parameters

Function DRexPage(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
=True
="(\&)?page=(\d)+"
DRexPage=(Str,"") '(Str,"$1")
Set RegEx=Nothing
End Function