XML LINQ VB.Net

Module Program
  Sub Main()
    Dim doc As XElement = XElement.Load("Inventory.xml")
    Dim petNames = From pn In doc.Descendants("PetName") Select pn.Value
    For Each name In petNames
      Console.WriteLine("Name: {0}", name)
    Next
  End Sub
End Module