vba如何模仿OOP风格

Question

我想要一些硬编码的变量，我想从我的实际代码中分离出来。在PHP中，我将使用配置类并稍后调用config-＆gt; foo。这在VBA中是否有类似的可能性？

我在配置函数上思考并称之为Config（＆＃34; Foo＆＃34;）。

这是以某种方式工作还是我必须通过Global Variables来解决问题？

Sub SomeFunction()

Dim I As Long

I = Config("Foo") ' is supposed to be I = 1

End Sub

Public Function Config(VariableName As String) As Variant

Static Foo As Long
Static Bar As String
Static SomeOtherVarThatIJustQuicklyMadeUp As String
Foo = 1
Bar = "Example"
Dim ReturnValue As Variant
ReturnValue = GetVariableByName(VariableName)
Config = ReturnValue

End Function