Código
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)