German Wie bricht man eine Schleife vorzeitig ab ?

Do While quit = 1
    quit = 0
    num = (Rnd(0,11))+1
      For j = 0 To i
      If j <> i Then
        If number(j) = num Then
            j = i                             'Die Zeile ist nur Mist, hier For_Break !!! ????
            quit = 1
                                              'Hier Schleife abbrechen
        End If
      End If
    Next
    Loop

quit = 0
Do While quit = 0
   num = (Rnd(0,11))+1
   For j = 0 To i
     If j <> i Then
       If number(j) = num Then
         j = i                   'Die Zeile ist nur Mist, hier For_Break !!! ????
         quit = 1
         Exit                   'Verlässt die For/Next Schleife
       End If
     End If
   Next
Loop