Usa la funzione IsNumeric.