random number

I need my program to generate a random number, but it can only be 1,2,or 3. How do I do this???

-MHENK

MsgBox Int((3 * Rnd) + 1)

Try this:

VB Code:

Private Sub Command1_Click()
    Randomize Timer
    MsgBox Int((Rnd * 3) + 1)
End Sub