>>497
From x In Enumerable.Range(1, 5) _
Where x > 3 _
Select x ^ 2

あるいは

Enumerable.Range(1, 5).Where(Function(x) x > 3).Select(Function(x) x ^ 2)