'VB Random test Randomize 50000 Debug.Print Rnd*100000 Randomize 50000 Debug.Print Rnd*100000 Randomize 50000 Debug.Print Rnd*100000
n=16 ' get 16 bits v=GetRandom(n) ' v is the returned random value t=1/(2^n)*v ' true random is now in the range 0<=t<1