Dim XMLDoc As DOMDocument30
Set XMLDoc = New DOMDocument30
Dim pi As IXMLDOMProcessingInstruction
Set pi = XMLDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""")
XMLDoc.insertBefore pi, XMLDoc1.childNodes.Item(0)
XMLDoc.save "C:\test.xml"
Set xmldoc = CreateObject("Msxml2.DOMDocument.4.0")
Dim pi As IXMLDOMProcessingInstruction
Set pi = xmldoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""SHIFT_JIS""") 'delete by huangJing for CR028
xmldoc.insertBefore pi, xmldoc.childNodes.Item(0)