Hola, con esta función lo conseguirás:
Código vb:
Ver originalPrivate Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize ' inicializar la semilla
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Pero, a Dios lo que es de Dios y al Cesar lo que es del Cesar, la he copiado del siguiente enlace de Recursos Visual Basic que aquí te dejo para que puedas aprender mas si tienes interés en ello.
Números Aleatorios
Saludos