Math Functions VisualBasic Script

Sub intDemo()
    Dim val1
    Randomize
    val1 = Int(100 * Rnd + 1)
End Sub