XML LINQ VB.Net

Imports System
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
    Public Shared Sub Main()
        Dim str As String = _
        "" & Environment.NewLine & _
        "" & Environment.NewLine & _
        "" & Environment.NewLine & _
        "    Content"  & Environment.NewLine & _
        "
"
        
        Dim doc1 As XDocument = XDocument.Parse(str, LoadOptions.PreserveWhitespace)
        Console.WriteLine("nodes when preserving whitespace: {0}", doc1.DescendantNodes().Count())
        Dim doc2 As XDocument = XDocument.Parse(str, LoadOptions.None)
        Console.WriteLine("nodes when not preserving whitespace: {0}", doc2.DescendantNodes().Count())
    End Sub
End Class