loop fehler??? zufallszahl von 40 bis 50 doppelt

Sub zufallszahlenMitAuswahl()
Dim zahl(10000) As Integer
Dim zahlneu As Integer
Dim anzahl, abzahl
Dim i, n, z
'****** inputbox
z = 11 'InputBox("Wieviele Zufallszahlen sollen ermittelt werden?") z = 1 somit 11 mal nur  _
durchlaufen
abzahl = 40  'InputBox("Ab welcher Zahl?")
anzahl = 50 'InputBox("bis welcher zahlenreihe?")
'endeIputbox
'Zufallszahl 1 bis anzahl ermitteln// über input oder ohne
For i = 1 To anzahl
If i = z Then
Exit Sub
Else
zahl(i) = Int((anzahl * Rnd) + 1)
zahlneu = zahl(i)
'* fehler?
Do While zahl(i)