Tilknytte XML-attribut fra Excel makro

Jeg looper gennem et ark for at danne en xml-fil.

Jeg har dog et problem med at tilknytte attributter til nogle bestemte noder.

Jeg har flg. overordnet:
------------------------

Public oNiveau5 As Object

Set oNiveau5 = oXMLDOM.createelement("appTypeElement")


oNiveau5.appendchild oXMLDOM.createelement("appTypeText")
oNiveau5.appendchild oXMLDOM.createelement("appTypePrice1")
oNiveau5.appendchild oXMLDOM.createelement("appTypePrice2")
oNiveau5.appendchild oXMLDOM.createelement("appTypePrice3")


I et loop tildeler jeg så værdierne:

        oNiveau5.childnodes(0).Text = ActiveCell.Value
        oNiveau5.childnodes(1).Text = ActiveCell.Offset(0, 1).Value
        oNiveau5.childnodes(2).Text = ActiveCell.Offset(0, 3).Value
        oNiveau5.childnodes(3).Text = ActiveCell.Offset(0, 5).Value

        oXMLDOM.documentelement.appendchild oNiveau5.CloneNode(True)

Hvordan får jeg hæftet attributes på de 3 sidstnævnte childnodes ? Løsning til et enkelt element er formentlig tilstrækkelig ;)

Jeg kan oprette disse værdier som yderligere childnodes, men ville egentlig helst ha' dem som attrib.