VB Code:
  1. Public Enum NodeType

  2.     NODE_INVALID = 0

  3.     NODE_ELEMENT = 1

  4.     NODE_ATTRIBUTE = 2

  5.     NODE_TEXT = 3

  6.     NODE_CDATA_SECTION = 4

  7.     NODE_ENTITY_REFERENCE = 5

  8.     NODE_ENTITY = 6

  9.     NODE_PROCESSING_INSTRUCTION = 7

  10.     NODE_COMMENT = 8

  11.     NODE_DOCUMENT = 9

  12.     NODE_DOCUMENT_TYPE = 10

  13.     NODE_DOCUMENT_FRAGMENT = 11

  14.     NODE_NOTATION = 12

  15. End Enum

  16.  
  17.  
  18.     Dim oxmlChildNode As IXMLDOMNode

  19.         

  20.  
  21. Set oxmlChildNode = XMLdoc.createNode(NODE_ELEMENT, "TypeOfNode", "")

  22.         oxmlChildNode.Text = "Some Text"

  23.         oxmlNode.appendChild oxmlChildNode