Private Sub Form_Load()
  Dim i&, j&, T$, N&, M$, Liste1$()
  N = 20
  Randomize
  ReDim Liste1(N - 1)
  M = "Liste vor dem Sortieren:" & vbCr & vbCr
  For i = 0 To N - 1
    T = ""
    For j = 1 To 5
      T = T & Chr$(65 + Int(Rnd * 26))
    Next j
    Liste1(i) = T
    M = M & T & vbCr
  Next i
  Call QuickSort(Liste1)
  M = M & vbCr & "Liste nach dem Sortieren:" & vbCr & vbCr
  For i = 0 To N - 1
    M = M & Liste1(i) & vbCr
  Next i
  MsgBox M
End Sub

Gruss,

Zardoz