Иногда нужно определить нестандартные ошибки в дополнение к тем, что уже определены в Visual Basic. Например, программа, которая полагается на связь через модем, могла бы генерировать ошибку при пропадании несущего сигнала. Если Вы хотите генерировать и перехватывать нестандартные ошибки, присвойте им соответствующие коды, используя константу vbObjectError как базовое значение.

Эта константа резервирует коды предопределенных ошибок в диапазоне от vbObjectError до vbObjectError + 512. Оперируя с кодами, превышающими последнее значение, Вы можете быть уверены, что они не вызовут конфликтов в будущих версиях Visual Basic.

Чтобы определить нестандартные ошибки, добавьте в раздел объявлений своего модуля соответствующие константы:

' константы, определяющие нестандартные ошибки
Const gLostCarrier = 1 + vbObjectError + 512
Const gNoDialTone = 2 + vbObjectError + 512

Определив коды нестандартных ошибок, Вы можете использовать их при вызове метода Raise так же, как и встроенные. В этом случае свойство Description объекта Err возвращает стандартное описание ? ?Application-defined or object-defined error? (?ошибка, определенная приложением или объектом?). Вы можете изменить это описание, указав соответствующую строку при вызове метода Raise.

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