Random numbers

I need help with my program: I need the program to generate 4 numbers from 1 to 6 without any decimal. Can someone give me codes to do it please?

VB Code:

Dim x As Integer, intNum As Integer
 
Randomize Timer 'edit
 
For x = 1 To 4
 
  intNum = Int((6 * Rnd)+1)
 
  MsgBox intNum
 
Next x

I believe that works
:)

Thanks, it work!!!