excluir numeros de la funcion Rnd(x,y)?

[Miseryk]

Yo usualmente uso una función que tiene un juego llamado Argentum Online:

Código (vb) [Seleccionar] Expandir


Public Function RandomNumber(ByVal LowerBound As Long, ByVal UpperBound As Long) As Long
    'Initialize randomizer
    Randomize Timer
   
    'Generate random number
    RandomNumber = (UpperBound - LowerBound) * Rnd + LowerBound
End Function


Se usa como: var = RandomNumber(1,9)