Ecco il codice 


Randomize
Dim Minimo As Integer'dichiarazione di variabile
Dim Massimo As Integer'dichiarazione di variabile
Dim Estratto As Single'dichiarazione di variabile
Minimo = 2 'Assegnazione valore alla variabile
Massimo = 10 'Assegnazione valore alla variabile
'Estrazione
Estratto = Int((Massimo - Minimo + 1) * Rnd) + Minimo
'Fine


Il minimo e il massimo sono personalizzabili in base alle propie esigenze