non avevo considerato l'auto completamento, pensavo solo all'esposizione; quindi sostituendo le virgolette con due apici non può funzionare.
in ogni caso:
nel primo esempio hai sbagliato a scrivere il replace con &quote invece di &quote;
nel secondo hai cercato due apici e ancora il replace con &quote invece di &quote;

mi pare comunque che sia necessario cercare una "coppia" di virgolette:
codice:
vBar = Replace(objrs1("Code"), """", """)