Private myZufall As New Collection
 
Private Function As Ziehung(Byval nVon As Long, Byval nBis As Long, Byval _
  nIteration As Long) As Boolean   
     Dim i As Long, n As Long    
     Ziehung = False   
 
     On Error Resume Next 'Error Handler einschalten    
 
     For i = 1 To nIteration 
 
          Randomize
 
          n = Int(Rnd * nBis) + nVon     
          myZufall.Add n, Trim(Str(n))     
          If Err.Number <> 0 Then         
                'Iteration um 1 zurücksetzen         
                i = i - 1     
          End If   
     Next   
     Ziehung = True
End Function
 
Um das Ergebnisfeld auszuwerten:MsgBox myZufall(1 ... nIteration)
Keine Zufallszahl ist doppelt. Damit läßt sich auch eine Listbox füllen.