<?xml version='1.0' encoding='Shift_JIS'?> <a/>
<?xml version='1.0' encoding='Shift_JIS'?> <a> <b>c</b> </a>
Dim doc As XMLDocument Dim a As IXMLDOMElement Dim b As IXMLDOMElement doc.open("ファイル名") Set a = doc.documentElement 'Set a = doc.slectSingleNode("a")でも可能 Set b = doc.createElement("b") b.Text = "c" a.appendChild(b) doc.save("別のファイル名")