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("Is FirstName tag empty? {0}", IIf(firstName.IsEmpty, "Yes", "No")) End Sub End Module