If you need nonrepeating random numbers, you could write your code like this:Dim arrNum(1 To 100) As Integer '1 Being the lowest random number, 100 being the highest
Dim intNum As Integer
Dim y As Integer
Dim z As Integer
Start:
Randomize()
intNum = Int((99 * Rnd()) + 1) 'Number range 1-100
For y = 1 To 100 'Number of different random numbers you need
If intNum = arrNum(z) Then 'Checks the random number to the array for repeats
GoTo Start 'Repeats are ignored and a new random number is generated
End If
arrNum(x) = intNum 'Adds the random number to an array
Next y
Exit Sub
End Sub
End Class
But if you simply just want random numbers, you could write your code like this:
Dim Value As Object
Randomize()
Value = Int(100 * Rnd()) 'Gives a random number between 1 - 100
Hope this helps you.