Public Max As Long
Private tmpZahl As Long
 
Private Sub Class_Initialize()
      Randomize 1 'kann auch ein anderer Wert genommen werden
End Sub
 
Public Property Get Zufall() As Long
    Zufall = tmpZahl
End Property
 
Public Property Let Zufall(Byval vValue As Long)
    tmpZahl = int(Rnd * Max)+vValue
End Property