Visual Basic - Necesito ayuda para Dado en VB

Hola, alguien pudiera orientarme para crear un dado de juego en VB, lo que sucede es que uso la funcion Rnd y siempre me da la misma secuencia de resultados

Utiliza la instrucción Randomize:

Private Sub Form_Load()
Randomize 'Inicializa la secuencia de números aleatorios
End Sub

Private Sub Form_Click()
MsgBox Int((6 * Rnd) + 1) ' Genera valores aleatorios entre 1 y 6.
End Sub