Math Functions VisualBasic Script

Sub mathDemo10()
   Debug.Print Rnd(1)