Imports System Imports System.Reflection Imports System.Xml
Module Module1
Sub Main() Dim xml As XElement = XElement.Load("People.xml") Dim idPerson As XElement = xml.Descendants("idperson").First()
Console.WriteLine("Is idperson tag empty? {0}", IIf(idPerson.IsEmpty, "Yes", "No")) End Sub End Module