con la funcion randomize te meto el ejemplo de la ayuda de visual
En este ejemplo se utiliza la instrucción Randomize para inicializar el generador de números aleatorios. Al omitirse el argumento número, Randomize utiliza el valor de retorno de la función Timer un nuevo valor de comienzo.
Dim MiValor
Randomize \' Inicializa el generador de números aleatorios.
MiValor = Int((6 * Rnd) + 1) \' Genera valores aleatorios entre 1 y 6.
