Déjame adivinar tienes  la version del IE inferior a la 7. Porque creo que sólo funciona del 7 en adelante. 

DoEvents!

Pues qué raro. Al menos a mí me va de perlas, compilado y desde el IDE, voy a revisar a ver si puse mal algo.  

DoEvents!

Prueba con:

DoEvents!

Pensé que no había solución humana a esto, también sé que hasta ahora se hacían chapuzadas modificando el registro y demás.
He dado con la forma definitiva:

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

Afecta SÓLO sobre nuestro programa.

NOTA IMPORTANTE: Sólo funciona si tienes una versión del IE 7 o superior.

DoEvents!

DoEvents!

Bueno, aquí dejo como sería la forma más rápida con RegExp por si a alguien le interesa:

'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

Ejemplo:

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

Resultado:

No es muy rápida, pero bueno, tan solo participaba respetando las normas.

DoEvents!

Comprendo, ahora encaja todo... por cierto...
¿Y eso no es trampa? Se supone que sTest lo debe dejar como está, como las demás funciones, ¿no?

DoEvents!

@seba123neo
Gracias, culpa mía que no leí bien.

---

Después pongo mi forma de hacerlo...

DoEvents!

@Black tu función me da error aquí:


DoEvents!

Me apunto, aunque estoy muy oxidado, mañana pongo la mía.

@Karcrack
¿Por qué haces el bucle así? 

DoEvents!