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