For Each .XmlReader.Node.Attributes (gb.libxml)

Dim hXmlReader.Node As XmlReader.Node
Dim hXmlReaderNode As .XmlReader.Node
For Each hXmlReaderNode In hXmlReader.Node.Attributes
  ...
Next