Могу ли я передать переменную между двумя частными функциями в разных модулях?

Question

У меня есть две частные функции в двух разных модулях. Эти две функции должны иметь общую переменную. Как мне заняться программированием этого?

Текущий код:

Private function TestFunction1 (ByVal traffic as string) As Boolean
'snippet from the code
dim amount as string
amount = inputbox("Fill in amount")
end function

---

Private Function TestFunction2 (ByVal layout as string) as Boolean
'snippet from the code
dim result as string
result = "the amount is: " & amount
end function

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

Спасибо

Answer 1

Конечно, это можно сделать, объявив переменную amount как Public:

Public amount As Long 'not sure why you declared it as a string, as it seems to be a number

Private function TestFunction1 (ByVal traffic as string) As Boolean
    'snippet from the code
    amount = inputbox("Fill in amount")
End Function