Ma questa linea non ti crea problemi? visto i 3 doppi apici?
sText = Replace(sText, """, Chr(34))

Almeno se leggo bene