Algoritmo aleatorio simple de VB Progresará...

Int((999999999 - 10001 1) * Rnd 10001)

Para generar un número entero aleatorio dentro de un rango, puedes utilizar la siguiente fórmula:

Int ( (límite superior - límite inferior 1) * Rnd límite inferior)

Aquí, el límite superior es el límite superior del rango de números aleatorios y el límite inferior es el límite inferior del rango de números aleatorios.