Dim c As Collection
Set c = New Collection
 
'alle möglichen Werte (min bis max) in die Collection eintragen
Dim i As Integer, min As Integer, max As Integer
min = 20: max = 40
For i = 0 To max - min
   Call c.Add(CStr(i + min))
Next i
 
'Jeweils eine Zahl aus der Collection ziehen (zufälliger Index)
Dim index As Integer, zufall As Double
For i = 0 To max - min
   index = c.Count * Rnd
   If index = 0 Then index = 1
   zufall = cdbl(c(index))  'die Zufallszahl
   'gezogene Zahl entfernen
   Call c.Remove(index)
Next i