There are many ways of doing this compare but I have used the following before.

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches

'Create variable.
Set regEx = New RegExp

' Create a regular expression.
regEx.Pattern = patrn   ' Set pattern.
regEx.IgnoreCase = True 

' Set case insensitivity.
regEx.Global = True

' Set global applicability.
Set Matches = regEx.Execute(strng)

' Execute search.
For Each Match in Matches
   ' Iterate Matches collection.
   RetStr = RetStr & ''Match found at position ''
   RetStr = RetStr & Match.FirstIndex & ''. Match Value is '''
   RetStr = RetStr & Match.Value & '''.'' & vbCRLF
Next   

RegExpTest = RetStr

End Function

phone1=''6788195300''
phone2=''Phone Number: 678-819-5300''
Regphone1=mid(phone1,1,3) & ''.*'' & mid(phone1,4,3) & ''.'' & mid(phone1,7,4)

print  Regphone1
print  RegExpTest(Regphone1, phone2)