КАК остановить програму?

[Uana]

В программе написанной на VB6. требуется при выполнении сканировать
введенный текст (лексический анализатор) до первой ошибки.
 Как сделать чтоб после первой ошибке в тексте
программа просто остановилась и дальше не продолжала разбор
пока не исправлю ошибку в тексте.
 Анализатор сделан с помощью матрицы переходов.
Действие для выдачи ошибки запрограммировано очень просто,
Public Sub Act3()
Dim str1 As String
MsgBox ("ошибка!")
End Sub
выводит окно комментария, но после нажатия кнопки на окне комментария
продолжает разбор, а мне надо чтобы программа остановилась я исправила ошибку
и продолжила разбор. Какую команду добавить?
Мне нужно чтоб  выполнение  процедур остановилось, пока я не исправлю ошибку
в тексте, а затем  продолжилось выполнение лексического анализатора.

[HandKot]

Можно посоветовать сделать глобальную переменную типа BOOLEAN
и выставлять ее значение, к примеру, в TRUE при ошибке
в процедуре анализа проверять это значение и работать, если значение FALSE
Public blnError as boolean   'признак ошибки

public sub FormLoad()
  blnError = false   'выставляем начальное значение
end sub

Public Sub Act3()
Dim str1 As String
MsgBox ("ошибка!")
blnError = true          'выставляем признак ошибки
End Sub

Public sub Analis()
  if blnError then exit sub    'если ошибка проверку не проводим
end sub

Public sub Pravka()
   blnError  = false           'если исправили, то снимаем признак ошибки
end sub

так же можно созранять позицию в тексте, где ошибка, чтобы при исправлении оной, начинать проверять не с начала текста, а с указанной позиции

[Uana]

А кроме Exit Sub, какие еще остановки существуют в VB

[blind rain]

Остановки в VB: End, Stop - экстренный останов
Не совсем понятно зачем нужен такой останов?

Почему не использовать конструкцию типа:

On error goto catch:
'алгоритм разбора
...
'в случае нахождения ошибки
err.raise vbCustom+1,'', 'описание ошибки'
'продолжение разбора

'все разобрали
exit sub
catch:
  if Err.Number=vbCustom+1 then
    call ShowMsg (Err.description) 'отобразить сообщение
    call MakeChanges() 'исправить ошибку
    resume next 'ошибка обработана возврат к продолжению разбора
  end if
end sub
 
То есть использовать обработчик ошибки для исправления ошибки :)