Problemas con aleatorio

Utiliza la funcion aleatorio para obetener un numero entre cero y uno y
despues con select case eliges los tramos.

En pseudocodigo sería algo asi:

Select case Aleatorio()

Case >0 <0.20
A
Case >=0.20 < 0.4
B
Case >=0.4 < 0.6
BB
Case >=0.6 < 0.8
c
Case >=0.8 < 1
cc
case else
algo ha ido mal
end select


"María" escribió en el mensaje
news:%

Hola! Mi problema es que necesito una fórmula para obtener aletoriamente
A, B, BB, C y CC. A ver si alguien me puede echar una mano.
Muchas gracias