[EvroStandart]

MSDN:
Dim MyValue As Integer
Randomize ' Initialize random-number generator.
MyValue = CInt(Int((6 * Rnd()) + 1)) ' Generate random value between 1 and 6.

А что тебе мешает просто проверять было ли такое число? Если было, генерируеш снова...