XML LINQ VB.Net

Imports System
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
    Public Shared 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 Class