loadXML の部分を改良．

// pDoc->loadXML(_T(""< ?xml version=\"1.0\" encoding=\"utf-8\"?>"< r>"< /r>")) ;
// Source: dynamDOMsmart.cpp より
　MSXML::IXMLDOMProcessingInstructionPtr pi =
　　pDoc->createProcessingInstruction(L"xml", L"version='1.0'  encoding='utf-8' ");
　　pDoc->appendChild(pi);
// Create a comment for the document.
　MSXML::IXMLDOMCommentPtr pc =
　　pDoc->createComment(L"sample xml file created using XML DOM object.");
　　pDoc->appendChild(pc);