XML LINQ VB.Net

Imports 
Module Module1
    Sub Main()
        Dim xmlTree1 As XElement = _
            
                1
                2
                3
                4
                5
                6
            

        Dim xmlTree2 As XElement = _ 
            
                <%= From el In xmlTree1.Elements() _
                    Where el.Value >= 3 And el.Value <= 5 _
                    Select el %>
            

        Console.WriteLine(xmlTree2)
    End SUb
End Module