Search not pattern in regexp

I have my udf
In [A1]= i want in B1 find not my pattern 123 text123 with pattern reg.125-123456 and no 2 is reg.444-466669 then in B1=aa(a1,"[0-9]{3}-[0-9]{6}")
Result after replace use " "
In b1=i want in B1 result is pattern
=125-123456 444-466669
I dont Want my pattern replace become ""
I want not pattern replace become ""

Function aa(R As Range, SimbolPattern As String) As String
With CreateObject("vbscript.regexp")
  .Global = True: .IgnoreCase = False
  .Pattern = SimbolPattern
If .test(R.Value) Then 
      aa = .Replace(R.Value, "")
Else
     aa = "No match"
End If
End With
End Function

How i am use pattern become
^[0-9]{3}-^[0-9]{6}"
Thank every body for your help