Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim doc As String = "<people>" & _
"<!-- Person section -->" & _
"<person>" & _
"<id>1</id>" & _
"<firstname>A</firstname>" & _
"<lastname>B</lastname>" & _
"<idrole>1</idrole>" & _
"</person>" & _
"</people>"
Dim xml As XElement = XElement.Parse(doc)
Console.WriteLine(xml)
End Sub
End Module