Pokud není příkaz použit, pak funkce Rnd (bez argumentu) použije stejné číslo jako semínko při prvním volání a pak používá posledně vygenerované číslo jako semínko.
K opakování posloupností náhodných čísel se volá funkce Rnd se záporným argumentem bezprostředně před použitím Randomize s číselným argumentem. Použití Randomize se stejnou hodnotou čísla neopakuje předešlou posloupnost.
Dim Response, nValue
Do
nValue = Int(6 * Rnd() + 1) 'Inicializace generátoru náhodných čísel
Response = MsgBox(nValue & " " & "Generování čísla mezi 1 a 6", vbYesNo)
Loop While Response = vbYes