Продолжает выполнение программы после завершения подпрограммы обработки ошибок.
Замечания
Если инструкция Resume используется в любой другой программе, помимо обработчика ошибок, то возникает ошибка.
Пример
В данном примере инструкция Resume используется для прекращения обработки ошибок в процедуре и возобновлению выполнения инструкции, которая привела к ошибке. Для иллюстрации создается ошибка с кодом 55.
Sub ResumeStatementDemo() On Error GoTo ErrorHandler ' Включаем обработчик ошибок. Open "TESTFILE" For Output As #1 ' Открываем файл. Kill "TESTFILE" ' Попытка удалить открытый файл. Exit Sub ' Выходим из процедуры, чтобы ' не попасть в обработчик. ErrorHandler: ' Подпрограмма обработки ошибок. Select Case Err.Number ' Определяем код ошибки. Case 55 ' "Ошибка "Файл уже открыт". Close #1 ' Закрываем открытый файл. Case Else ' Здесь размещаются инструкции для обработки других ошибок... End Select Resume ' Возобновляем выполнение процедуры ' со строки, вызвавшей ошибку. End Sub