Private Sub calc(maxint As Integer)
 
Dim k As Integer
Dim Zahl As Integer
Dim strArray As String
 
strArray = ";"
 
For k = 0 To maxint - 1
     Zahl = Int(Ausgang.ListCount * Rnd + 1)
    If Not (InStr(strArray, Zahl)) Then 'Test ob Zahl schon da
            Ergebniss.AddItem Ausgang.List(Zahl)
            strArray = strArray & Zahl & ";"
    End If
 
Next
 
End Sub
 
Private Sub Command1_Click()
If IsNumeric(Zahl.Text) Then
    calc (Val(Zahl.Text))
End If
End Sub
 
Private Sub Form_Load()
Dim k As Integer
For k = 0 To 100
    Ausgang.AddItem k & "_" 'Damit man dann das ganze im Ergebnis unterscheidet 
    ' vom Index
Next
End Sub