Sub Main()
    Dim MValue
    Randomize          ' Initialize random-number generator.
    MValue = Int((6 * Rnd) + 1)
    Print MValue
End Sub