Urcite to pujde pres ten ADODB.Stream, jen to nemam jak vyzkouset...
Pro zacatek bych zkusil podhodit Excelu prazdne .xml jen s BOM a upravit radek, takto:
Open ThisWorkbook.Path & "\" & Range("c21") & ".xml" For Append As #i
Slozena cesta musi ukazovat na jiz existujici .xml, kde bude jen BOM tedy soubor jen se znaky: 0xEF,0xBB,0xBF. Mozna to pojede...