Option Explicit
Private Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" (ByVal FeatureEntry As Long, ByVal dwFlags As Long, ByVal fEnable As Long) As Long
 
Private Const FEATURE_DISABLE_NAVIGATION_SOUNDS     As Long = &H15
Private Const SET_FEATURE_ON_PROCESS                As Long = &H2
 
Private Sub Form_Load()
    CoInternetSetFeatureEnabled FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, True
End Sub

'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