Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xml As XElement = XElement.Load("People.xml")
Dim firstName As XElement = xml.Descendants("firstname").First()
Console.WriteLine("After <firstname>")
For Each tag In firstName.ElementsAfterSelf()
Console.WriteLine(tag.Name)
Next
End Sub
End Module