There are two ways to generate a random number in VB.NET (that I am familiar with).
Technique 1:
randomNumber = CInt(Math.Floor((n - 0 + 1) * Rnd())) + 0
n = Upperbound value, otherwise known as the highest value randomNumber can be, which in your case you would have already defined as 1000.
0 = Lowerbound value, otherwise known as the lowest value the randomNumber can be.
You can find more info about this technique here.
Technique 2:
Dim rn As New Random
randomNumber = rn.Next(0, n)
Again, n = Upperbound value, otherwise known as the highest value randomNumber can be, which in your case you would have already defined as 1000.
And again, 0 = Lowerbound value, otherwise known as the lowest value randomNumber can be.
I cannot find a link to an official post about this on the Microsoft MSDN site, but if anyone can find a good post about this technique, please comment, or message me.
I hope this helps!