' Controls: , 1 * Commandbutton, 1 * Listbox mit Sorted = True
 
Option Explicit
 
Private Sub Form_Load()
  Randomize
End Sub
 
Private Sub Command1_Click()
  Dim i As Long, j As Long, N As Long, Lst() As Double, flgDoppelt As Boolean
 
  N = 1000
  ReDim Lst(1 To N)
  For i = 1 To N
    Do
      Lst(i) = Int(Rnd * 5000)
      flgDoppelt = False
      For j = 1 To i - 1
        If Lst(i) = Lst(j) Then
          flgDoppelt = True
          Exit For
        End If
      Next j
    Loop While flgDoppelt = True
  Next i
 
  With List1
    .Visible = False
    .Clear
    For i = LBound(Lst) To UBound(Lst)
      .AddItem Format$(Lst(i), "000000")
    Next i
    .Visible = True
  End With
End Sub

Gruss,

Zardoz