Validar cajas de texto en fox

Pero te puedo dar una idea para salir del paso y que sirve para cualquier lenguaje y es el siguiente:
X=0
FOR a=1 TO LEN(CAMPO)
IF SUBSTR(CAMPO,a,1) < '0' OR SUBSTR(CAMPO,I,1) > '9' THEN
X=1
ENDIF
END
IF X <> 0 THEN MSGBOX 'INTRODUZCA SOLO NUMEROS'
Este método no necesita función especifica de función de control numérico, salvo la de longitud de variable y la de obtener dígito a dígito el contenido del campo.

Gracias por tu respuesta... probé el código y me abre siempre el messagebox, pohga números o letras...
Te paso el código tal como lo escribí:
X=0
I=LEN(thisform.text1.value)
FOR a=1 TO I
IF SUBSTR(thisform.text1.value,a,1) < "0" OR SUBSTR(thisform.text1.value,I,1) > "9" THEN
X=1
ENDIF
next
IF X <> 0
messagebox("INTRODUZCA SOLO NUMEROS")
thisform.text1.value=""
return 0
Endif
Si me podes dar una solución... Gracias Fco Santos.

Te contesto aquí también por si no te ha llegado la primera respuesta)
Hola,
En primer lugar disculpa por la palabra coger, creo que vara vosotros significa otra cosa, en españa significa tomar, asir, es decir, "coger con la mano la maleta que esta en el suelo", por ejemplo.
En el IF, en el substring que compara el 9 has puesto I, cuando debe de ser A, es decir, SUBSTR(thisform.text1.value, A, 1) > '9'. No obstante ten encuenta lo siguiente:
1236 es totalmente numérico, pero si tiene un espacio al principio te lo invalidará
1.236 el punto no es numero, por lo que si te interesa tendrás que incluirlo en la pregunta, así como el separador de decimales. Cualquier carácter no comprendido entre 0 y 9 tendrás que controlarlo. Por ejemplo:
if (substr(thisform.text1.value, a, 1) < '0' or substr(thisform.text1.value, a, 1) > '9') and substr(thisform.text1.value, a, 1) <> '.' then
cualquier caracter que quieras que sea considerado numerico lo incluyes en la pregunta con la condicion AND como ves en el ejemplo que considera al punto numerico.
La función SUBSTR es una función que obtiena una subcadena desde el carácter que se le indica en el segundo parámetro y cuantos caracteres indique el tercero. Según nuestro ejemplo, obtiene 1 carácter de la cadena thisform.text1 desde la posición que indica A. El formato es el siguiente:
SUBSTR(cadena, nº que indica posición desde donde queremos coger, numero que indica cuantos caracteres queremos coger)
Si te sigue funcionando mal, habría que ver si FOX tiene un código ASCII distinto al normal, aunque seria extraño.