Dim query = _
From c In customers _
Where c.Discount > 3 _
Select r = New With {c.Name, .Perc = c.Discount / 100} _
Order By Perc
