MSDN:
Per generare interi casuali in un dato intervallo, utilizzare la seguente formula:

Int((limitesup - limiteinf + 1) * Rnd + limiteinf)

In questo contesto, limitesup indica il numero maggiore presente nell'intervallo, mentre limiteinf indica il numero minore.

Nota:Per ripetere sequenze di numeri casuali, richiamare Rnd con un argomento negativo immediatamente prima dell'utilizzo di Randomize con un argomento numerico. L'utilizzo di Randomize con lo stesso valore di numero non determinerà la ripetizione della sequenza precedente
codice:
Const LimiteSup = 99
Const LimiteInf = 0
Dim Num1 As Byte

Randomize Timer
Num1 = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
MsgBox CStr(Num1)