Lotto Zahlengenerator funkt nicht ganz richtig

[Sesa_Mina]

Hier eine Variante die 6 Zahlen ermittelt und auch noch die Zusatzzahl.

Im Anschluss werden die Zahlen aufsteigend sortiert ausgegeben

Private Function LottoZ(AW As Byte, EW As Byte)
Dim Zahlen() As Byte, Zaehler As Byte, Zahl As Byte
Dim Output As String
' AW/EW vertauschen falls AW größer EW
If AW > EW Then Zahl = EW: EW = AW: AW = Zahl
' Zu kleiner Bereich? Geht nicht.
If (EW - AW) < 7 Then MsgBox "Fehler! Zahlenbereich zu klein!", vbOKOnly: End
ReDim Zahlen(EW) ' Hier merken wir uns die gezogenen Zahlen
Zaehler = 0: Output = ""
Randomize Timer
Do
Zahl = Int(Rnd * ((EW + 1) - AW)) + AW ' Zahl auswählen
If Zahlen(Zahl) = 0 Then ' Zahl überprüfen. Eintragen wenn frei
If Zaehler < 6 Then Zahlen(Zahl) = 1 Else Zahlen(Zahl) = 2
Zaehler = Zaehler + 1 ' Zähler raufsetzen wenn ok
Debug.Print "*"
End If
Loop Until Zaehler = 7

Output = "Die Lottozahlen: "
For Zahl = AW To EW
If Zahlen(Zahl) = 1 Then Output = Output & Zahl & ", "
Next
For Zahl = AW To EW
If Zahlen(Zahl) = 2 Then Output = Output & "Zusatzzahl: " & Zahl
Next
MsgBox Output, vbOKOnly
End Function