Функция Error

При анализе ошибочной ситуации по заданному номеру ошибки функция Error позволяет получать стандартный текст сообщения об ошибке без необходимости их генерации. Однако, в силу своей устаревшей природы эти сообщения не всегда совпадают с возвращаемыми значениями свойства Err.Description объекта Err
Примечание Функция Error является устаревшей и оставлена для совместимости со старыми программными кодами. Рекомендуется использовать свойство Err.Description объекта Err

Функция возвращает значение типа Variant(String), содержащее стандартное описание ошибки по заданному номеру

ErrorNumber

Необязательный аргумент, содержащий номер любой доступной ошибки. Если этот номер допустим, но текст ошибки не определен, то функция Error возвращает строку Application-defined or object-defined error
Если аргумент опущен, то возвращается сообщение последней ошибки при прогоне программы. Если же при прогоне ошибки не возникает, то функция возвращает строку нулевой длины ("")
Примечание Если же значение аргумента не допустимо(превышает допустимый диапазон кодов(больше 65536), то возникает ошибка времени исполнения Overflow

' Выводим сообщения
' соответствующие номерам ошибки
Dim ErrorNumber
For ErrorNumber = 51 To 64  ' цикл по номерам 51 - 64
 Debug.Print Error(ErrorNumber)
Next ErrorNumber