Try taking the body text from the original, not the reply. Instead of

[VBA]mytext = myReply.Body[/VBA]

use

[VBA]mytext = mymail.Body[/VBA]