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