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