Visual Basic - Numeros Aleatorios

Necesito generar una cadena de 15 numeros aleatorios de 1-90, eso ya lo hice, el problema es que como condicion tengo que no puede haber mas de 3 numeros por decena..
Ej. si género 01-15-20-43-61-72-76-54-65-73-18-30-79-89-90. no puedo tener cuatro numeros del 70 al 79. Espero se entienda. Gracias

mmmm.....

num = random .....

while (tamaño del array)
if num/10 (para conseguir la decena) = comparar los otros numeros

decena_repetida = decena_repetida+1
if(decena_repetida=4) then 'tenemos que volver a lanzar el random
next cont
wend

Suerte,