Variable 'Random Number' is used before it has been assigned a value.

[kebo]

Have you run that code?... what happen when you do?

this line

Dim RandomNumber(,) As Integer

creates a 2 dimensional array of integers, but since you did not supply values to indicate the size of the array, the array does not exist. When you do this...

ConLandLaunch(con) = RandomNumber(1, 30000)

you are assigning the value that resides at the 1,30000 position of the RandomNumber array, but that value does not exist, so your code will (should) error

What are you trying to do?