Example:

  1. Sub Main()

    1. Dim MValue

      Randomize          ' Initialize random-number generator.

      MValue = Int((6 * Rnd) + 1)

      Print MValue

    End Sub