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

Dim hXmlReader.Node As XmlReader.Node
Dim aString As String
For Each aString In hXmlReader.Node.Attributes
  ...
Next