FoxPro/Visual FoxPro - COMO SABER SI HAY NUMERO EN UNA CADENA DE PALABRAS

BIEN AMIGOS NECESITO UNA AYUDITA

TENGO UN CAMPO QUE ME DIGITAN POR NUMERO BUSQUEDAS
Y TAMBIEN AHI MISMO DIGITAN NOMBRES

YO HAGO LO SIG.

ESDIGITO = VAL(THISFORM.TEXT1.VALUE)
IF ESDIGITO >0
SEEK POR NUMERO

ELSE
SEEK POR CADENA DE NOMBRES
ENDIF
LO MALO ES QUE SI ALGUIEN DIGITA POR EJEPLO

CUANDO DIGO ES MAYOR QUE CERO EL VALOR NUMERICO DE LA CADENA ME PONE
0 AUN CUANDO SEA LA SITUACION SIG.
1001 DOUGLAS
VOY A CONFUNDIR AL PROGRAMA Y NO ENCONTRARA
O SI DOUGLAS 1500
IGUAL

ATT. DOUGLAS SANCHZ
GRACIAS

No se si esto te sirve:

cadena=thissform.text1.value
nume=0
FOR a = 1 TO LEN(cadena)
b=SUBSTR(cadena,a,1)
IF ASC(b) < 60
nume=nume+1
ENDIF
ENDFOR
if nume > 0
&&hay números
endif