Dim intZahl As Integer
Dim X as Integer
 
Randomize()
 
For X = 0 To 40 Step 1                        '41 x wird diese Schleife 
' ausgeführt
    intZahl = ((100*Rnd) + 1)               'Zahlen zwischen 1 und 100
    ListBox1.Items.Add(intZahl)
Next