[VB6] Ottenere valore Random escludendo lo 0 (zero)

[EnSa]

Prova con questo:

Public Function Rand(ByVal Min As Long, ByVal Max As Long) As Long
  Rand = Int((Max - Min + 1) * Rnd) + Min
End Function

Dove Max è il valore massimo e Min è il valore minimo che vuoi che assuma il numero Rand