RNG_Number

Generates a random number in a given range.

VB6/VBA

Debug.Print "Testing RNG_Number ..."
Dim i As Integer
For i = 1 To 10
    Debug.Print RNG_Number(-1000000, 1000000)
Next

Output

Testing RNG_Number ...
-810105 
 392807 
-38223 
 675466 
-646964 
 552543 
 301707 
 580102 
-408821 
 968882 

VB.NET

Console.WriteLine("Testing RNG_Number ...")
Dim i As Integer
For i = 1 To 10
    Console.WriteLine(Rng.Number(-1000000, 1000000))
Next

[Contents]