Dim myDOM As DOMDocument
Dim nodeDOM1 As IXMLDOMNode
 
Dim oRoot As IXMLDOMElement
Dim oAttribute As IXMLDOMAttribute
 
Set oInstruct = myDOM.createProcessingInstruction("xml", "version=""1.0""" & _
  "encoding=""UTF-8"")
myDOM.insertBefore(oInstruct, myDOM.childNodes.Item(0))
 
        ' --> Hier erstellen wir das Rootelement welches die Datenelement 
        ' aufnehmen wird
        Set oRoot = myDOM.createElement("Document")
 
            ' --> Attribute für's 'Dokument' erstellen
            Set oAttribute = myDOM.createAttribute("xmlns")
            oAttribute.Value = "pain.008.002.02"
 
            oRoot.Attributes.setNamedItem oAttribute                       
 
        ' --> Anfügen des Root Elementes an das Dokument
        myDOM.appendChild oRoot
 
        ' --> Anlegen der Group
        Set nodeDOM1 = myDOM.createElement("Customer")                    
        oRoot.appendChild nodeDOM1
              .
              .
             usw.

<?xml version="1.0" encoding="utf-8"?>
<Document xmlns="pain.008.002.02">
	<Customer xmlns="">
              .
              .
             usw.