为什么这个简单的函数不返回值？

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。