Salve ragazzi
data la Stringa di esempio :
La casa di "D'Antonio" è blu

vorrei tramite la funzione replace ottenere come risultato la Stringa:

La casa di \"D\'Antonio\" è blu

Ho provato a fare la seguente funzione ma non va perchè ?

function Controlla_Apice(Stringa)
Controlla_Apice=replace(Stringa,chr(34),"\" & chr(34))
Controlla_Apice=replace(Stringa, "'","\'")
end function


grazie mille