XML出力 with MS XML 6.0 (2)

Sub writeXML2()

Dim xmlDoc As MSXML2.DOMDocument

Set xmlDoc = New MSXML2.DOMDocument

xmlDoc.LoadXML ("<?xml version=""1.0""?><test>日本語</test>")

xmlDoc.Save ("C:\\test3.xml")

End Sub