Do Until intMaxNumberOfEntries < 6

Try Do While...