For Each .XmlNode.Attributes (gb.libxml)

Dim hXmlNode As XmlNode
Dim hXmlNode2 As XmlNode
For Each hXmlNode2 In hXmlNode.Attributes
  ...
Next