codice:
strMessage = Replace(strMessage, Chr(34), " & q u o t ; ", 1, -1, 1)
non vedo perchè dovrebbe essere faticoso, se non fai così non ne uscirai mai!
fai te!
o forse non ho capito bene ciò di cui hai bisogno!