I figured it out.
Using reader As XmlReader = XmlReader.Create("C:\Users\shuppz\Desktop\XmlTest.xml")
While reader.Read()
If reader.IsStartElement() Then
If reader.Name = "Category" Then
Dim xName As String = reader("Name")
If xName IsNot Nothing Then
MsgBox(String.Format(" Has attribute name: {0}", xName))
End If
End If
End If
End While
End Using