FoxPro/Visual FoxPro - no funciona busqueda

LOCAL lncode
DO case
CASE EMPTY(thisform.txtIdsocio.Value) OR (thisform.txtIdsocio.Value) = 0
WAIT "No permitido ni en cero ni en blanco, ingreso un id valido"windo
thisform.txtIdsocio.setfocus
RETURN 0
CASE (thisform.txtIdsocio.Value) <> 0 AND (thisform.txtIdsocio.Value) => 1
SELECT cuotapart
SET ORDER TO idsocio
SET DELETED ON
SEEK (thisform.txtIdsocio.Value)
IF FOUND()
WAIT "Ya existe idsocio,ingrese otro" WINDO
ELSE
wAIT"GUARDADO"WINDO
=TABLEUPDATE(.T.)

ENDIF
ENDCASE

Prueba cambiando el valor del textbox a un entero (en la propiedad value basicamente
el valor se considera como una cadena de caracteres), creo que con la funcion VAL()
se puede hacer la cconversion (asegurate)