Rimpiazzare con caratteri speciali

[Gio&Ste]

In genere per rimpiazzare i caratteri speciali quando salvo del testo in un db faccio in questo modo:

strMessage = Replace(strMessage, "<", "&lt;", 1, -1, 1)

Il problema è come faccio a trasformare i " con &quot???
Se faccio così:

strMessage = Replace(strMessage, """, " & q u o t ; ", 1, -1, 1)

Mi genera il seguente errore:

Errore di compilazione di Microsoft VBScript (0x800A03EE)
Previsto ')'

P.S. Ho dovuto scriverlo così &quot altrimenti veniva interpreatato come "