VB6 aggiunta di un attributo su files XML sotto nodo specifico

Buonasera, premetto che non conosco nulla di XML, comunque, in VB6 sto provando ad inserire un attributo all'interno di un files XML diciamo che ci sono riuscito, ma ho la necessità di aggiungere l'attributo sotto ad un determinato nodo.

Sono riuscito ad aggiungere l'attributo ma non capisco come poter fare affinche finisca sotto al nodo "elemento". In realtà viene aggiunto un nuovo nodo che si chiama "elemento" con l'attributo "idElement" ma in un posto casuale.

Grazie

Private Sub Command1_Click()
Dim dd As New DOMDocument
Dim root As IXMLDOMElement
Dim nd As IXMLDOMNode
Dim at As IXMLDOMAttribute
Dim attr As IXMLDOMAttribute
Dim doc As New MSXML2.DOMDocument
Dim node As MSXML2.IXMLDOMNode

Dim nodeList As MSXML2.IXMLDOMNodeList

Set nodeList = dd.selectNodes("//distinta/elementigrafici/elemento/")

'apre il file
dd.Load "c:\test.xml"


Set root = dd.documentElement

'crea elemento e attributo id

Set nd = dd.createElement("elemento")
Set at = dd.createAttribute("idElement")

nodeList.Item(4).appendChild nd


at.Value = "123456"

nd.Attributes.setNamedItem at


'salva il tutto
dd.save "c:\test.xml"
End Sub

Grazie... ho rpvato ad inserire un immagine in formato BMP di 19KB per mostrare la struttura del files xml ma non viene caricata perche ?