Need the simple Random code

[Matthew Gates]

Private Sub Command1_Click()
    Randomize Timer
    Msgbox Int((Rnd * 10) + 1)
End Sub