RUN NOT WORKING IN EDIT BOX

I have loaded the undernoted in an editbox called (thisform.edit1.value) in a form

select padr(iif(inlist(Deptname,"MOTOR UNDERWRITING",;
			"TRAINING SCHOOL","MOTOR UNDERWRITING","CORPORATE AFFAIRS",;
			"TRANSPORT","ADMIN UNIT RRWO","CORPORATE AFFAIRS","FREEMAN CLINIC",;
			"MARINE/AVIATION","REINSURANCE","ESTATES & MORTGAGES",;
	        "NON MOTOR CLAIMS","SALES & MARKETING"), deptname,"OTHERS"), 50) as deptname, ;
  sum(iif(area_off = "ISLAND PROPERTY AREA OFFICE",1,0)) as "ISLAND", ;
  sum(iif(area_off = "SOUTH AREA OFFICE",1,0)) as "SOUTH", ;
  sum(iif(SUBSTR(area_off,1,4) = "TAKO",1,0)) as "TAKO_AREA_OFFICE" ;
  from AREA ;
  group by 1;
  INTO CURSOR AREA_B

I have equated the edit box as follows in a button as follows

cmacro=ALLTRIM(THISFORM.EDIT1.VALUE)

&cmacro

However when I run it gives an error message

" missing operand "


Please assist