Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xml As XElement = XElement.Load("People.xml")
Dim record As IEnumerable(Of XComment) = xml.Nodes().OfType(Of XComment)()
For Each comment As XComment In record
Console.WriteLine(comment)
Next
End Sub
End Module