Dim d As New XmlDocument() d.LoadXml("<a><b/><c/><d/></a>") Dim z As XmlNodeList = d.DocumentElement.ChildNodes MsgBox(z.Count) 'b,c,d の3個 d.DocumentElement.AppendChild(d.CreateElement("e")) MsgBox(z.Count) 'b,c,d,e の4個 d.DocumentElement.InnerXml = "" MsgBox(z.Count) '0個