Alternative VBScript au PHP preg_match - vbscript

Je dois réécrire le fragment de code PHP suivant (qui filtre tous les caractères non numériques de la chaîne fournie);

$new_string = preg_replace("/[^0-9]/", "", $old_string)

dans VBScript. Aucune suggestion ?

Réponses:

Function repNum(myString)
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = "[^0-9]"
.IgnoreCase = True
.Global = True
End With
repNum = RegularExpressionObject.Replace(myString, "")
Set RegularExpressionObject = nothing
End Function