Función IsNumeric

[Kruzado]

lo que yo hago para verificar que un valor sea numero efectivamente es :

declaro una variable cualquiera

public numero as integer

en el programa muevo el valor a la variable declarada como integer, si se cae es caracter, sino es numero :

on error resume next
.
.
.

numero=text1.text
if err.number <> 0 then
msgbox "ingrese solo numeros"
else
'continuo con mi programa
endif

entonces on error me dirige el programa a la linea siguiente despues que se cae
err.number es la variable con el codigo de error generado, que en este caso es 13. error en tpo de dato
espero te sirva
chao