Private Sub test
Dim xmlDoc As MSXML2.DOMDocument40
 
Dim elmKatalog As IXMLDOMElement
Dim elmKatalogseiten As IXMLDOMElement
Dim elmKatalogseite As IXMLDOMElement
Dim elmInhalt As IXMLDOMElement
Dim elmProduktdaten As IXMLDOMElement
Dim elmGrafik As IXMLDOMElement
Dim elmGrafikDatei As IXMLDOMElement
Dim elmVerpackung As IXMLDOMElement
Dim elmVerpackungTabelle As IXMLDOMElement
 
Dim newNode As IXMLDOMNode
 
Set xmlDoc = New MSXML2.DOMDocument40 ' FEHLER !!
 
[...]
 
End Sub