Visual Basic - Como saber si un caracter no es numerico

Buenas gente del foro.

Primero gracias a los que me han ayudado con el excel, que practicamente lo controlo todo. :-)

Ahora mi duda reside en que el programa ke estoy acabando me falta pulir pekeños detalles y uno de ellos es evitar poner letras o simbolos en unos objetos text, como podria hacer, es decir, mas o menos el codigo seria:

if variable<>caracter de numero then
else
end if

Una forma es mediante la funcion : Isnumeric ( ), y si tienes una cadena y quieres comprobar, puedes hacer esto :
strcadena = trim(text1.text)
for i = 1 to len(strcadena)
strcaracter = mid (strcadena,i,1)
if isnumeric(strcaracter) then
msgbox "Es numérico"
end if
next

Puedes hacerlo de varias maneras, aquí te pongo 3:

If Not IsNumeric(variable) Then
Else
End If

If (variable < "0") Or (variable > "9") Then
Else
End If

If Not (variable Like "#") Then
Else
End If

Aqui te va otra manera:
Public Function Numeros(ByVal KeyAscii As Integer) As Integer
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
Numeros = 0
Else
Numeros = KeyAscii
End If
If KeyAscii = 8 Then NumerosDecimales = KeyAscii ' borrado atras
If KeyAscii = 13 Then NumerosDecimales = KeyAscii ' return
End Function