Как с помощью VBScript извлечь все цифры из строки?

Option Explicit 
 

Dim strOriginal, intLength, intCount, strFinal 
 

' Check all arguments required have been passed 
If Wscript.Arguments.Count < 1 Then Wscript.Echo "Arguments
  required. For example:" & vbCrLf _ &
 "cscript extractnumeric.vbs 214-555-9705" 
Wscript.Quit(0)
End If 
 

strOriginal = Wscript.Arguments(0)
intLength = Len(strOriginal)
strFinal = "" 
 

for intCount = 0 to (intLength-1)
if IsNumeric(Mid(strOriginal,intCount+1,1)) then strFinal
 = strFinal + Mid(strOriginal,intCount+1,1) end if next 
 

Wscript.Echo strFinal