Dim oDOM As DOMDocument
  Dim oRoot As IXMLDOMNodeList
  Dim oElemKnoten As IXMLDOMNode
  Dim oElemKnotenSub As IXMLDOMNode
 
  ' --> laden des XMLDokumentes in den Speicher
  Set oDOM = New DOMDocument
  oDOM.async = False
  oDOM.loadXML objXmlHttp.responseBody
 
  ' --> Root Node auslesen
  Set oRoot = oDOM.selectNodes("DATA/ARTIKEL/ITEM")
 
  ' --> Auslesen der Daten
  For Each oElemKnoten In oRoot(0).childNodes
    MsgBox "Name = " & oElemKnoten.baseName
    MsgBox "Text = " & oElemKnoten.Text
  Next