Module Program Sub Main() Dim doc As XElement = XElement.Load("Inventory.xml") Dim fords = From c In doc... Where c.Value = "Ford" Select c For Each f In fords Console.WriteLine("Make: {0}", f) Next End SubEnd Module