Vba и UserForm

Формулировка задачи:

Написал процедуру и хочу чтобы во время ее выполнения на форме отображалось что процедура делает в данный момент. После открытия формы процедура ждет пока форма незакроется.

Решение задачи: «Vba и UserForm»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> X()
    <font color="blue">Dim</font> lngI <font color="blue">As</font> <font color="blue">Long</font>

    UserForm1.Show vbModeless
    
    <font color="blue">For</font> lngI = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>50000</b></font>
        DoEvents
        UserForm1.Label1.Caption = CStr(lngI)
    <font color="blue">Next</font> lngI
    
    UserForm1.Hide
<font color="blue">End</font> <font color="blue">Sub</font>
                        