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