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