VB обработка ошибок

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

Как реализовать следующую схему :
Процедура
========
Оператор А1
Оператор А2
Оператор А3
ВыходИзПроцедуры
Если произошла любая ошибка при выполнении А1 или А2 или А3 то выполнить
Оператор Б1
Оператор Б2
Оператор Б3
ВыходИзПроцедуры
Если произошла любая ошибка при выполнении Б1 или Б2 или Б3 то выполнить
Оператор С1
Оператор С2
Оператор С3
ВыходИзПроцедуры
КонецПроцедуры
=============

Решение задачи: «VB обработка ошибок»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> TestError()
    <font color="blue">Dim</font> intI <font color="blue">As</font> <font color="blue">Integer</font>
    
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> MarkA
    
    intI = <font color="darkblue"><b>1</b></font> \ <font color="darkblue"><b>4</b></font>
    intI = <font color="darkblue"><b>1</b></font> \ <font color="darkblue"><b>3</b></font>
    intI = <font color="darkblue"><b>1</b></font> \ <font color="darkblue"><b>0</b></font>
    
MarkA:
    Debug.<font color="blue">Print</font> Err.Description
    <font color="blue">Resume</font> MarkB

MarkB:
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> MarkC
    
    intI = <font color="darkblue"><b>2</b></font> \ <font color="darkblue"><b>4</b></font>
    intI = <font color="darkblue"><b>2</b></font> \ <font color="darkblue"><b>3</b></font>
    intI = <font color="darkblue"><b>2</b></font> \ <font color="darkblue"><b>1</b></font>

MarkC:
    Debug.<font color="blue">Print</font> Err.Description
    <font color="blue">Resume</font> MarkD

MarkD:
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> ExitHere

    intI = <font color="darkblue"><b>3</b></font> \ <font color="darkblue"><b>4</b></font>
    intI = <font color="darkblue"><b>3</b></font> \ <font color="darkblue"><b>3</b></font>
    intI = <font color="darkblue"><b>3</b></font> \ <font color="darkblue"><b>0</b></font>
<font color="00AA00">'---</font>
    <font color="blue">exit</font> <font color="blue">sub</font>
ExitHere:
    Debug.<font color="blue">Print</font> Err.Description
<font color="blue">End</font> <font color="blue">Sub</font>
                        