Usa la funzione VbScript

IsNumeric(numero)

Roby