Da MSDN:

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

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