Module Program Sub Main() Dim doc As XElement = XElement.Load("Inventory.xml") Dim ids = From c In doc. Select c.@carID For Each id In ids Console.WriteLine(id) Next End SubEnd Module