'cGetNums.cls
Option Explicit
Private oRegExp As Object
 
Private Sub Class_Initialize()
    Set oRegExp = CreateObject("VBScript.RegExp")
    With oRegExp
        .Global = True
        .Pattern = "\D+"
    End With
End Sub
 
Public Static Function pGetNums(ByRef sText As String) As String
    pGetNums = oRegExp.Replace(sText, vbNullString)
End Function
 
Private Sub Class_Terminate()
    Set oRegExp = Nothing
End Sub

Option Explicit
 
Private Sub Form_Load()
Dim c As New cGetNums
    Debug.Print cGetNums("0asdasd1sa sd sd 2 3  sdfdfdsf456       7!!!!!!!!!!!!!!!!!!8?????9asd")
    Set c = Nothing
End Sub

0123456789