Źle działa Pętla For wewnątrz pętli While - jak poprawić ?

       Dim liczba = 5
       While RichTextBox1.Lines.Count >= liczba
            For Each line In RichTextBox2.Lines
                funkcja(email, source)
            Next
            MsgBox("???")
            liczba = liczba + 1
        End While

MsgBox powinien się wyświetlić dopiero po ukończeniu pętli For (gdy w całości skończy się pętla For)...
Natomiast tak się nie dzieje...
Podczas działania pętli for, wyświetlają mi się MsgBoxy co świadczy o tym że pętla While też równoczesnie działa...
Co robię źle ?