Dim k(5) As Integer
Dim i As Integer
Dim g As Integer
Dim j As Integer, str As String
 
For i = 0 To 5
    k(i) = 0
Next
 
i = 0
For g = 1 To 18
    If k(i) = 3 Then i = i + 1
    k(i) = k(i) + 1
 
    'Ausgabe der k-Werte
    str = "g=" & Format(g) & ":"
    For j = 0 To 5
        str = str & " " & Format(k(j))
    Next
    MsgBox str
Next