vba - Visual Basic Fill Array with simple number set -

i need fill array numbers 1-50, , have code:

dim numberset(49) x = 1 50 numberset(x - 1) = x next x 

the challenge in least amount of lines possible. part bugging me because seems shouldn't using 4 lines basic.

any thoughts guys? want avoid doing = {1,2,3,4,5...50} if can. thanks!

in 1 line:

dim numberset(49): x = 1 50: numberset(x - 1) = x: next x