Excel 使用函数获取变量值（将变量从函数传递到子例程）

我正在Windows计算机上使用Excel（Office 365）中的VBA。（我已经发现几乎没有一个主要的VBA功能在Mac上工作）

首先，我向所有说“这个问题已经被问过”的人道歉。也许是这样，但我刚刚在这里呆了一个多小时，找不到答案

我发现了如何将变量的值传递给函数，但我不能用另一种方法，从函数返回到子程序

有一些类似的问题，但答案中的代码远远超出了我的绝对初学者水平，我无法理解。我已经尝试过很多东西，比如使用“optionexplicit”、“Dim”、“Public”和“Private”，但我就是无法让这段代码正常工作

这是代码。请有人帮我重新写好吗

Sub GetTheValueOfXXX()

      getXXX
      MsgBox XXX
End Sub

Function getXXX()

      XXX = 999
End Function

---

感谢那些同情我是一个完全的新手的人，并向那些认为这等于加1加1的人道歉。

谢谢蒂姆·威廉姆斯！我看到了区别。你的代码可以工作。然而，它并没有像我希望的那样完全解决问题。我认为这个问题简化得太多了。您可以看到，我正在尝试将26个变量的值传回（“AAA”“BBB”“CCC”“ZZZ”）。根据你的代码，看起来我需要编写26个函数来完成这项工作。有没有一种简单的方法可以在一个子系统或函数中加载26个变量，并将它们全部传递回主子系统以供使用？请参阅上面的编辑

Sub GetTheValueOfXXX()
    Dim x
    x = getXXX()
    Msgbox x
End Sub

Function getXXX()
    getXXX = 999   '<< return a value using the function's name...
End Function

Sub GetTheValueOfXXX()
    Dim x
    x = getXXX()
    Msgbox x(0)   '>> 999
    Msgbox x(1)   '>> 88
End Sub

Function getXXX()
    getXXX = Array(999, 88, 7) 
End Function