leaving only numbers in the cell

Hi.

I need to remove bars, dashes, commas, at once inside a cell.
Exemple:
----Original---------------Result
25.569.589/0001-68--25569589000168

i try ...don't work....# VALUE!

Function GetNum(strIn As String) As Integer
'Separa número de texto
    Dim objRegex
    Dim i As Integer
    Dim j As Integer
    
    Set objRegex = CreateObject("vbscript.regexp")
    
    With objRegex
     .Global = True
     .Pattern = "[^\d]+"
    GetNum = .Replace(strIn, vbNullString)
    End With
    
End Function