XML LINQ VB.Net

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