1:  Module Module1
   2:   
   3:      Sub Main()
   4:          Dim InputXml = <?xml version="1.0" encoding="utf-8"?>
   5:                         <users>
   6:                             <user id="1" name="Eduardo"/>
   7:                             <user id="2" name="Luciano"/>
   8:                             <user id="3" name="Ricardo"/>
   9:                         </users>
  10:   
  11:          Dim OutputXml = <?xml version="1.0" encoding="utf-8"?>
  12:                          <users>
  13:                              <%= From user In InputXml.<users>.<user> _
  14:                                  Where user.@id > 1 _
  15:                                  Order By user.@name Descending _
  16:                                  Select <user>
  17:                                             <id><%= user.@id %></id>
  18:                                             <name><%= user.@name %></name>
  19:                                         </user> _
  20:                              %>
  21:                          </users>
  22:   
  23:          Console.WriteLine(InputXml)
  24:          Console.WriteLine()
  25:          Console.WriteLine(OutputXml)
  26:          Console.WriteLine()
  27:          Console.ReadKey(False)
  28:      End Sub
  29:   
  30:  End Module