xmlファイルのnodeへのattributes追加（VBA使用）

Question

###前提・実現したいこと
現在、VBAでxmlの読み取り⇒一部修正を行おうとしています。
具体的には、読み取ったxmlの中に以下のような<Components>ノードがあり、この下に<Property>ノードを子ノードとして複数追加したいと考えています。
ここで、Propertyは、attributesとして、role=xx、role=yyを追加したいのですが、この方法が分からず困っております。
具体的には、以下のような構成にしたいと考えています。

<Components>
</Components>

↓

<Components>
    <Property role=xx>
    </Property>
    <Property role=yy>
    </Property>
</Components>

###該当のソースコード
以下のコードで、Componentsノードの下に、Propertyノードを複数作成することまではできております。（Node3がComponentsノードになります）

                            Set Node4 = Node3.appendChild(XMLDocument.createNode(NODE_ELEMENT, "Protperty", ns2))
                            Set Node4 = Node3.appendChild(XMLDocument.createNode(NODE_ELEMENT, "Protperty", ns2))

ここで、上記のNode4に、attributes="role"を追加したいのですが、方法が分からず苦慮しております。

###試したこと
こちらのサイト等、参考にしながら、Set attr = IXMLDOMElement.createAttribute("role")等、作成してみましたが、上手くattributesの作成ができておりません。
皆様のお知恵をお借りしたく、宜しくお願いいたします。

###補足情報(言語/FW/ツール等のバージョンなど)
Excel 2013使用

Answer 1

属性（MSXML2.IXMLDOMAttributeオブジェクト）を
ノード（IXMLDOMNodeオブジェクト）のAttributes.setNamedItemメソッドへ渡せば追加できるようです。

Set Node4 = Node3.appendChild(XMLDocument.createNode(NODE_ELEMENT, "Protperty", ns2))

'role属性を作成
Dim attr As MSXML2.IXMLDOMAttribute
Set attr = XMLDocument.createAttribute("role")
attr.NodeValue = "xx"

'role属性を追加
Node4.Attributes.setNamedItem attr

Comments

[cesolution]

ありがとうございます。ご教授いただいたコードで完璧に動作いたしました。長い時間悩んでいたので非常にたすかりました。重ねてお礼申し上げます。