Aleatorio

Como estas, mira todo es posible je,
una forma seria así:
Supongamos que vos tienes un MIN, un MAX, y un RES.
dim min, max, res() as integer.
private sub Evento()
     res=int(rnd * max)
     if res > min then Evento
end sub
Fíjate si te sirve...
Un abrazo!