If check_fert.Value = 1 Then
         Dim arrartikel() As String
         ReDim arrartikel(anzahl_fert.Text) As String
 
    List_result.AddItem "FERTIGUNGSARTIKEL"
    List_result.AddItem "-----------------"
         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)
    List_result.AddItem combo_fert.List(arrartikel(I))
  Next
  End If