01. В этот примере вы видите, как можно использовать оператор GoTo для сообщения об ошибке. Она записывается в переменную Err.
Private Sub butRead_Click()
On Error GoTo 999 ' В случае возникновения ошибки перейти на метку 999
Dim a As Long
a = Eval(Me.myEval)
MsgBox "Результат: " a, vbInformation, "Результат вычисления"
Exit Sub 'Выходим из программы
999:
MsgBox "Номер ошибки: " Err.Number vbNewLine "Описание ошибки: " Err.Description, vbCritical, "Ошибка в программе"
Err.Clear 'Очищаем поток от ошибок
End Sub