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