Just to have more options, another example might be:
dim lst = Enumerable.Range(0, (Nb * (Nr + 1)) - 1)
And then use LINQ expressions, for example (just composed):
lst.Select(function(x)
if x mod 2 = 0 then
return x * 2
else
return x
end if
end function)