E0={Ex,Ey,Ez};
EE=E0*Exp[-I*(kx*x+ky*y+kz*z)]
CurlEE=Curl[EE,{x,y,z}]