Espero que te sirva:
Rnd te genera un numero aleatorio entre 0 y 0.999999..
y para llevarlo a un intervalo haces lo siguiente
numero_aleatorio = Int(((Ls-ii) * Rnd) + Li)
Li = Limite inferior
Ls = Limite superior
este es un ejemplo:
intervalo [33,126]
numero = Int((93 * Rnd) + 33)
Es recomendable que antes de utilizar la función Rnd ejecutes Randomiza, ya que de otra manera el primer numero generado es siempre el mismo.
Aqui ahi una función unpoco mas compleja
Public Function IDO(Optional n As Integer)
Dim i As Integer
Randomize
If n = 0 Then n = 32
While i <> n
C = Int((93 * Rnd) + 33)
If C <> 39 And C <> 34 Then
IDO = IDO + Chr(C)
i = i + 1
End If
Wend
End Function