Example - Rnd Function

'Rnd Function Example
'The example uses the Rnd function to simulate rolling a pair of dice by
'generating random values from 1 to 6. Each time this program is run,
Sub Main()
   Dim Dice1, Dice2, Msg' Declare variables.
   Dice1 = CInt(6 * Rnd() + 1) ' Generate first die value.
   Dice2 = CInt(6 * Rnd() + 1) ' Generate second die value.
   Msg = "You rolled a " & Dice1
   Msg = Msg & " and a " & Dice2
   Msg = Msg & " for a total of "
   Msg = Msg & Str(Dice1 + Dice2) & "."
   MsgBox Msg ' Display message.
End Sub