Replace VBMath.Rnd() with App.Random.Next().