将变量传递给调用另一个需要使用变量来调用不同变量的函数的函数

Question

第一次在这里发帖，所以如果我犯了一些错误或违反了任何潜规则我会道歉。 VBA中的My Sub需要调用函数，同时传递一些变量。到目前为止我没问题。然后该函数需要调用另一个函数（它多次调用此函数）。当我在原始函数中调用另一个函数时，原始函数需要将一个新变量（已经创建并公开）传递给另一个函数。但是，这个新变量的名称必须直接受我从Sub传递给原始函数的原始变量的影响。现在我怀疑是否有人可以遵循这一点，因为我在阅读时几乎不做，所以这里是我希望能够做的一个例子。

Public Claire As Integer, Stacy As Integer
Public ClaireNotForMe As Integer, StacyNotForMe As Integer
Public Bertha As Integer, Gandalf As Integer
Public BerthaNotForMe As Integer, GandalfNotForMe As Int 
Sub FirstGirls ()
Claire = 1
Stacy = 2
Date_Tonight(Claire, Stacy)
End Sub

Sub QuestionableGirls ()
Bertha = 3
Gandalf = 1000
Date_Tonight(Bertha, Gandalf)
End Sub

Function Date_Tonight (Girl1, Girl2)
Girl1 = Girl1 + 5
TooMuchTalking (Girl1NotForMe)

 ' I want this to pass         ------------------------------------------ClairNotForMe or -------------------------------------------------BerthaNotForMe,On and -----------------------------------------On etc.
Girl2 = 500
End Function

Function TooMuchTalking (Girl)
Girl = 10000
End Function

任何建议表示赞赏！无法发布确切示例，因为它包含敏感信息。感谢您阅读。