Module Program Sub Main() Dim doc As XElement = XElement.Load("Inventory.xml") Dim ids = From c In doc.<Car> Select c.@carID For i As Integer = 0 To doc.Nodes.Count - 1 Console.WriteLine(doc.<Car>(i).<Color>.Value) Next End Sub End Module