How about :
*--- make sure we have digits only for the Phone Number
IF !EMPTY(nCharPhone)
FOR i = 1 TO nCharPhone
IF !ISDIGIT(SUBSTR(cPhone,i,1))
MESSAGEBOX ("Phone number should contain the numbers 0-9 only!")
RETURN
ENDIF
NEXT
ENDIF