Clarion - INString

hola alguien me podria enviar un ejemplo de Instring por favor soy principiente en este de la programacion en clarion 6.1 errores en mi programa,
necesito confirmar que el Email de mi usuario no se repita con otro usuario y cuando agrege el email que comfirme que lo puedo agregar sabiendo no existe otro y si este ya existe entonces que me dija que no lo puedo agregar.
es caso es que tengo problemas con la busqueda en mi tps porque todos me dice que
mi email esta duplicado

USU:EMAIL =USU:EMAIL
Set(USUente,USU:EMAIL)
Next(Usuario)
!IF SUB(USU:EMAIL,INSTRING(USUP(USU:EMAIL),USU:EMAIL,-1,3))

! IF INSTRING(USUP(USU:EMAIL),USU:EMAIL,-1,3))****

IF SUB(USU:EMAIL,INSTRING('USU:EMAIL',USU:EMAIL,-1,3))

Set(USUente,USU:EMAIL)
Next(Usuario)

MESSAGE('El EMAIL Valido ','ERROR',ICON:HAND,BUTTON:OK)
else
MESSAGE('El Email DUPLICADO ','ERROR',ICON:HAND,BUTTON:OK)
END
Display()

saludos
Diana

AQUI TIENES UN EJEMPLO

X#=INSTRING('DEF','ABCDEFGHIJ',1,5))
X# SERA CERO PUES NO CUMPLE

AQUI LE DIGO BUSCA DEF DENTRO DE ABCDEFGHIJ PERO EMPEZANDO EN EL 1ER DIGITO Y TERMINANDO EN EL 5

COMO EN EL STRING EN DONDE COMPARO LA F ESTA EN EL SEXTO LUGAR NO CUMPLE.

UN SALUDO...

FEM

ok gracias por la ayuda