FoxPro/Visual FoxPro - Validar text box

Quiero validar un text box de manera que pueda contener solo números , estos números pueden tener decimales pero no pueden ser negativos.
Lo que hice fue colocar las propiedades:
Format = K
InputMask=#######
y en el evento Valid coloqué:

"v_item= this.value
if type('v_item')<> 'N' then
v_item= val(v_item)
ENDIF

IF SIGN(v_item) =-1 then
messagebox("El valor no puede ser negativo.",48,"Error")
this.SelStart = 0
this.SelLength =5
RETURN .F.
ENDIF"

Mi problema es que no se como evitar que se ingresen valores tales como:
++--
---44++
-+-..
Como hago para filtrar estos valores????????????
Muchas gracias.