Jose Luis:

Quizás este código en el evento VALID del cuadro de texto se sirva

IF ALLTRIM(THIS.Value) = 'S/N'
RETURN .T.
ENDIF
FOR Y = 1 TO 5
IF AT(SUBSTR(THIS.Value,Y,1),'0123456789') = 0
RETURN .F.
ENDIF
NEXT
RETURN .T.

Saludos cordiales

Manuel Tovar
Barranquilla - COLOMBIA