Si usas a menudo números aleatorios, probablemente estarás cansado de tener siempre que llamar a Randomize y luego la fórmula que uses. Esta subrutina maneja ambas cosas para tí. Primero pn la siguiente rutina en el módulo principal de tu proyecto.

Public Function GenRndNumber(Upper As Integer, Lower As Integer) As Integer
    Randomize
    GenRndNumber = Int((Upper - Lower + 1) * Rnd + Lower)
End Function

Para obtener un número entre 99 y -99, simplemente introduce :

      RandomNumber = GenRndNumber(99, -99)

Puedes obtener una letra aleatoria entre "A" y "M" con esto:

      RandomLetter = Chr$(GenRndNumber(asc("M"), asc("A")))

Puedes eliminar un rango central poniendo la llamada a GenRndNumber dentro de un bucle DO Loop. Las siguientes instrucciones generan un número aleatorio entre 50 y 99 o -50 y -99.

      'Inicializar el número a generar dentro del rango que quieres excluir
      RandomNumber = 0
      Do Until Abs(RandomNumber) > 49
         RandomNumber = GenRndNumber (99, -99)
      Loop

Asegúrate de declarar RandomNumber y RandomLetter de manera adecuada.

John Slaughter, [jrslaughter@sisna.com]