como usar replace com html

oi eu gostaria de saber como usar html nesta funcao.esta funcao troca a tag q esta entre {} por um texto so que ele so aceita texto e eu gostaria de utilizar html.quando tento usar html ela me retorna erro por causa das aspas.se alguem puder ajudar agradeço.ai vai o codigo da função.<%Caminho = Server.MapPath("template.htm")Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set ObjTxt = FSO.OpenTextFile(Caminho, 1)Texto = ObjTxt.ReadAll Response.Write FormataTemplate(Texto) Set FSO = Nothing Function FormataTemplate(strShd)FormataTemplate = strShdFormataTemplate = Replace(FormataTemplate,"{NomeSite}","Site de teste")FormataTemplate = Replace(FormataTemplate,"{NomeCliente}","cliente generico")End Function%>obrigado.