codice:
dim Num as integer
const LimiteInf=0
const LimiteSup=100
dim NumGenerato as integer
dim VNumeri() as integer

num=cint(inputbox("Inserire il numero di variabili da generare!"))

redim VNumeri(num)
for i=0 to num
  NumGenerato = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
  VNumeri(i) = NumGenerato
next
Alla fine hai un vettore (VNumeri) con i valori ricercati...