Hola:
Esta función está copiada de Recursos Visual Basic, si no te es suficiente, en ella puedes encontrar mas información en el enlace de donde la copié:
'Función que devuelve el número aleatorio
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize ' inicializar la semilla
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function Generar Numero Aleatorio
Saludos