La función Rnd o Random posee la virtud de obtener números aleatorios entre 0 y 1:
El único inconveniente a la hora de usar Rnd, es que hay que inicializarlo, en otro caso,
el resultado de la función Rnd, será siempre el mismo dentro de un determinado ordenador.
Para solucionar este problema, debemos escribir la sentencia Randomize antes de llamar
a la función Rnd. De esta manera, la función Rnd actuará correctamente.
El código quedaría así:
Private Sub Form_Load()
Dim Num As Double
Randomize
Num = Rnd
MsgBox Num
End Sub
Ahora respondiendo a tu pregunta, como vemos los valores que genera rnd son menores que la unidad y matores que o iguales a 0, para obtener nuemros entre 1 y 15 debes multiplicar el resultado del numero aleatorio por 15. y ahi obtendras resultados entre este rango de numeros, para excluir u omitor aquellos que son 12 o 14 debes evaluarlos y si es ese numero repetir el proceso. Ojo tienes que convertir a enteros los numeros resusltanes para poder determinar su equivalencia.
