Right([HomeEmail],Len([HomeEmail])-InStr([HomeEmail],”@”))
If the field containing the emails has null or empty strings in it make sure you set the criteria to ” Is Not Null And Not “” ” or else you will get the error: “Data type mismatch in criteria expression.“