; Dim Example ; Create a collection of 100 random numbers ; Create array Dim nums(99) ; Fill each element with a random number For i = 0 to 99 nums(i) = Rand(1,1000) Next