Sub Random()

Dim R as Double, i as Integer

For i = 1 to 1000

     Randomize 10

     R = Rnd() '(1st = 0.705547511577606, 2nd = 0.533424019813538, 3rd = 0.579518616199493)
     other codes ...............
Next i

End Sub