Do you have any idea to reduce the time on generate a large ammount(e.g > 10000) of random number into array?

My code is :
dim temp as long
dim arr() as long
dim maxvalue as long

redim arr(1 to x)
For temp=1 to x
arr(temp) = int(rnd*maxvalue)+1
next temp
.
.
.
is it possible to speed up the program??