Блог

Я вызываю функцию, которая должна возвращать объект.

 sub testObj() Dim objA as object  set objA = getObject('some string') .... End sub  Private function getObject('some string') as object dim objB as object do stuff.... set getObject() = objB End function  

‘если set GetObject() = objB завершается неудачно, то объект, который нужно передать обратно, отсутствует, и вызывающий подменю завершается неудачно. Что я должен передать обратно, чтобы показать, что произошла ошибка?