Прервать выполнение программы через кнопку - VB

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

программа бежит в процедуре в цикле
мне нужно при нажатии на кнопку прервать выполнение цикла и процедуры
при этом ту часть работы которая уже выполнена нужно сохранить
или чтобы выполнился определённый блок а после была остановка
(например с сообщением)
как такое реализовать
Спасибо

Решение задачи: «Прервать выполнение программы через кнопку»

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

                            <font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="blue">Private</font> i <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Const</font> MAX_VALUE <font color="blue">As</font> <font color="blue">Long</font> = <font color="darkblue"><b>200000000</b></font>
<font color="blue">Private</font> <font color="blue">Sub</font> cmdStart_Click()
    i = <font color="darkblue"><b>1</b></font>
    <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> MAX_VALUE
    DoEvents
    Label1.Caption = CStr(i)
    <font color="blue">Next</font> i
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> cmtStop_Click()
    MsgBox <font color="teal">"Program stopped at "</font> & CStr(i)
    i = MAX_VALUE + <font color="darkblue"><b>1</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        