verschachtelte Schleifen

ich habe ein an sich sehr simples Programmfragment, welches aber
für mich völlig unsinnige Ergebnisse liefert. Es handelt sich, wie man auf den ersten Blick erkennt, um zwei geschachtelte While-Schleifen. An sich sollte ja als Ergebnis der Rechnung
4 * 14 = 96 herauskommen, allerdings erhalte ich 5 ?!
Durch die Messageboxen kann man auch beobachten das die innere Schleife nur einmal aufgerufen und ausgeführt wird. Dannach dreht bloß noch die äußere Schleife ihre Runden.
Wer mir dieses für mich unverständliches Verhalten erklären kann, melde sich bitte zu Wort.
__________________________________
Public Sub test()
erg = 0
outer_counter = 0
inner_counter = 0

Do While outer_counter <= 14
MsgBox ("outer_counter")
MsgBox (outer_counter)

Do While inner_counter <= 4
MsgBox ("inner_counter")
MsgBox (inner_counter)
erg = erg + 1
inner_counter = inner_counter + 1
Loop

outer_counter = outer_counter + 1

Loop
MsgBox (erg)
End Sub
_________________________________________-

Vielen Dank
Sebastian Lindstaedt