"Robert Crandal" wrote:
'--------------------------------------------------------
Sub myregex()
Dim regEx As New VBScript_RegExp_55.RegExp
Dim str As String

str = "Call me at (982)555-1234!"

regEx.Pattern = "(...)...-...."
regEx.Global = True
regEx.IgnoreCase = True

MsgBox regEx.Replace(str, "*")

End Sub


If I wasn't clear, the output message should be:

*************

But, I would also be happy if the output was:
(***)***-****

Either way is fine, but the first is better.