XML LINQ VB.Net

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