Почему эта простая функция не возвращает значение?

Question

Я пытался написать функцию, которая возвращала коллекцию, но не могла заставить ее работать, поэтому я попробовал что-то очень простое. Я должен делать что-то действительно глупое.

Когда я бегу temp1, в следующем коде, я ожидаю увидеть это:

afunc value = 4 
temp1 afunc = 4 

но то, что я получаю это:

afunc value = 4 
temp1 afunc = 0 

.

Function aFunc() As Integer 
    Dim theValue As Integer 
    Dim retValue As Integer 
    theValue = 4 
    Debug.Print "afunc value = " & theValue 
    retValue = theValue 
End Function 

Sub temp1() 
    Debug.Print "temp1 afunc = " & aFunc() 
End Sub 

Я уверен, что это что-то очень основное, но я не понимаю, что это такое.

Answer 1

В конец aFunc(), добавить aFunc = theValue вместо retValue = theValue.