RNG_Number

Returns a random Long number between specified limits.

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 ...
 496655 
-412155 
-181478 
-546228 
-146647 
 178038 
-475413 
-467051 
 271700 
-917361 

VB.NET

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

[Contents]