Этот код вызовет ошибку

Пример 12

Этот код вызовет ошибку с номером 65 000: Err.Raise 65000