eregi_replace()

Substituição por expressão regular sensível a caixa.

Function eregi_replace(ByVal Expr, ByVal Subs, ByVal Varn)
Dim Regex
Set Regex = New RegExp
Regex.Pattern = Expr
Regex.IgnoreCase = True
Regex.Global = True
eregi_replace = Regex.Replace(Varn, Subs)
Set Regex = Nothing
End Function