Function eregi(ByVal str, ByVal patrn,ByVal rpl)
'EJ, para sacar tags eregi(texto,"<([^>]+)>","")
'Ej, para sacar los links eregi(texto,"<a([^>]+)>|</a>","")
		 Set regEx = New RegExp
		 regEx.Pattern = patrn
		 regEx.IgnoreCase = True
		 regEx.Global = True
		 StrReplace = regEx.Replace(str,rpl)
		eregi = StrReplace
End function

ASP - Eregi Para Regex

ASP