If Randomize is not used, then the Rnd function (with no arguments) uses the same number as a seed the first time it is called, and thereafter uses the last generated number as a seed value.
To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. The usage of Randomize with the same value for number does not repeat the previous sequence.
Dim Response, nValue
Do
nValue = Int(6 * Rnd() + 1) 'Initialize random-number generator
Response = MsgBox(nValue & " " & "Generate random value between 1 and 6", vbYesNo)
Loop While Response = vbYes