If check_fert.Value = 1 Then
  Dim arrartikel() As String
  ReDim arrartikel(anzahl_fert.Text) As String
 
  <font color=red>sevList1.AddItem , "FERTIGUNGSARTIKEL"
  sevList1.AddItem , "-----------------"</font>
 
  Randomize -Timer
  Dim Ziehung As Integer
  Dim I As Integer
  Dim Result As Boolean
  Dim Zahl As Integer
 
  Ziehung = 0
  While Ziehung < anzahl_fert.Text
    Ziehung = Ziehung + 1
    Do
      Zahl = Int(combo_fert.ListCount * Rnd + 1)
      Result = True
      For I = 1 To Ziehung - 1
        If arrartikel(I) = Zahl Then
          Result = False: Exit For
        End If
      Next I
    Loop Until Result = True
    arrartikel(Ziehung) = Zahl
  Wend
 
  For I = 1 To UBound(arrartikel)
    <font color=red>sevList1.AddItem , combo_fert.List(arrartikel(I))</font>
  Next
End If