Еще один способ вернуть информацию об ошибке построен на особенностях типа данных Variant и связанных с ним функций. В Variant есть метка, которая указывает тип содержащихся в переменной данных; одним из типов может быть код ошибки Visual Basic. Поэтому Вы вправе написать функцию, возвращающую значение типа Variant, и использовать его метку, сообщая вызывающей процедуре об ошибке.

Вот как переписать функцию Power, чтобы она возвращала значение типа Variant:

Function Power(X As Long, P As Integer) As Variant
═════On Error GoTo ErrorHandler
═════Power = x ^ P
═════Exit Function

ErrorHandler:
═════Power = CVErr(Err. Number) ═════' преобразуем код ошибки в значение
═════════════════════════════════════════════════════════════? Variant с соответствующей меткой
End Function

? вызываем функцию Power
Dim varReturnValue As Variant
varReturnValue = Power(10, 2)
If lsError(varReturnValue) Then
═════.
═════. ' обрабатываем ошибку
═════.
Else
═════.
═════. ? продолжаем нормальное выполнение программы
═════.
End If

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