The > in email actually has a following space so try

EmailText = Replace(EmailText, "> ", "")

...first.