if not check_text()
   messagebox("Error in this text")
   This.Value = []
   NODEFAULT
endif

DO WHILE .T.
      ME.Work()
ENDDO