Unexpected quantifier

Koden nedan fungerar bra lokalt, men i skarpt läge så får jag felet Unexpected quantifier på raden med pilen. Koden är gjord av emission (tror jag) och är anpassad av mig.

Public Function ParseURL(ByVal sText)
	
	If Len(Trim(sText & "")) = 0 Then Exit Function
	
	Dim objRxp
	Set objRxp = New RegExp
	objRxp.Global = True
	
	objRxp.Pattern = "(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
	sText = objRxp.Replace(sText, "$1<a target=""_blank"" href=""$2$3"">$2$3</a>$4") '<--
	
	objRxp.Pattern = "(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
	sText = objRxp.Replace(sText, "$1<a target=""_blank"" href=""http://$2"">$2</a>$3")
	objRxp.Pattern = "(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)"
	sText = objRxp.Replace(sText, "$1<a href=""mailto:$2"">$2</a>")
	
	Set objRxp = Nothing
	
	ParseURL = sText
End Function

Någon som vet vad felet är?