Есть несколько способов вернуть код ошибки. Простейший ? создать функции, возвращающие в случае ошибки ее код. Вот пример использования этого способа для функции FileExists, которая проверяет, существует ли указанный файл:

Function FileExists(p As String) As Long
═════If Dir(p) <> "" Then
══════════FileExists = conSuccess ' эта константа сообщает, что
═════Else ════════════════════════════════════════' такой файл существует
══════════FileExists = conFailure ═══' эта константа сообщает об ошибке
═════End If
End Function

Dim ResultValue As Long
ResultValue = FileExists("C:\Testfile.txt")
If ResultValue = conFailure Then .
═════.
═════. ? обрабатываем ошибку .
═════.
Else .
═════.
═════. ? продолжаем нормальное выполнение программы .
═════.
End If

Главное в строчной обработке ошибок ? немедленная проверка на ошибку после выполнения каждого оператора или вызова функции. В этом случае можно создать обработчик, рассчитанный на определенную группу ошибок. Такой подход не требует реального появления ошибок периода выполнения.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997