Hoe krijg ik uit visual basic een willekeurig getal tussen de 1 en 6, afgerond op helen met een gelijke kans voor elk getal?

Met:
Getal = CInt( 6 * Rnd + 1)

Rnd levert een uniform verdeeld willekeurig getal op tussen 0 en 0,999....
Door het te vermenigvuldigen met 6 krijg je een willekeurig getal tussen 0 en 5,999....
Als je daar eentje bij optelt liggen die tussen 1 en 6,999..
En vervolgens het gehele deel daarvan nemen