No funciona...
Por que, cada vez que se ejecuta desde el inicio, internamente el generador de numeros vuelve a cero, y comienza de la misma forma....
Prueba la siguiente sentencia...
Var = Int(Rnd) + CInt(Format(Time, "ss"))
A la generacion del numero, le agregas los segundos extraidos de la hora de ejecucion, y por tanto, NUNCA tendras la misma secuencia de numeros...
