Не удается вернуть значение из функции VBA

Question

Я пытаюсь вернуть значение из моего кода. Это гораздо проще просто показать код:

Function writeHeaderData() As IXMLDOMNode 

    Dim xmlDoc As New MSXML2.DOMDocument30 
    xmlDoc.async = False 
    xmlDoc.LoadXML "<Foo></Foo>" 
    Dim Foo As IXMLDOMNode 
    Set Foo = xmlDoc.DocumentElement 

    'code snip; includes appending lots of things to Foo 

    'the error is on this line: 
    writeHeaderData = Foo 
    Exit Function 

End Function 

Я уже Google искал, но это было ни к чему. Эта функция вызывается из основной подпрограммы, и я пытаюсь добавить возвращенную IXMLDOMNode к большей один, но я получаю сообщение "ошибка "Object variable or With block variable not set на writeHeaderData = Foo линии. Что здесь?

Answer 1

В VB (A), если вы хотите назначить на объекта переменной, включая присвоение возвращаемого значения функции, вам нужно использовать Set, так:

'the error is on this line: 
writeHeaderData = Foo 

должен быть

Set writeHeaderData = Foo