Dim XMLDoc As MSXML2.DOMDocument
    Dim Root As MSXML2.IXMLDOMNode
    Dim TaskElement As MSXML2.IXMLDOMNode
    Dim Element As MSXML2.IXMLDOMNode
    Dim XAttribute As MSXML2.IXMLDOMAttribute
 
    'XML-Parser initialisieren:
    Set XMLDoc = New MSXML2.DOMDocument
 
    Set Root = XMLDoc.createNode(1, "log", "")
    XMLDoc.appendChild Root
 
    Set TaskElement = XMLDoc.createNode(1, "task", "")
    Root.appendChild TaskElement
 
    Set Element = XMLDoc.createNode(1, "action", "")
    TaskElement.appendChild Element
 
 
    XMLDoc.save "C:\test.xml"