Pull the email domain from a string VBA Access visual basic

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.“