コメント内容:XML文書作成においてXML宣言部分を作成してくれないことに気づきました。⇒<?xml version="1.0" encoding="UTF-8"?>
それで色々調べたら以下の処理で実現できました。
もし作者の方がバージョンアップする気があるのならお願いします。
Dim Dec As IXMLDOMProcessingInstruction 'XML宣言
Dim xDoc As MSXML.DOMDocument 'XMLドキュメント
Set xDoc = CreateObject("MSXML2.DOMDocument.6.0")
Set Dec = xDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
xDoc.appendChild Dec