嵌套 VB (VBA) 枚举

好吧，伙计们，我想实现嵌套枚举的效果，以便轻松对一些常量字符串进行分组。类似于下面的伪代码：

Enum gKS
    Colby = "Hello"
    Hays = "World"
end Enum

Enum gMA
    Dodge = "Seven"
    Muscatine = "Ports"
end Enum

Enum gCountry
    north as gMA
    south as gKS
end Enum

Public USA as gCountry

所以下面的代码应该输出一个“Seven“ 信息：

sub dol()
    msgbox USA.north.Dodge
end sub

我不想使用类型或类，因为不需要初始化，因为所有值都是已知的（正如我所说的常量）。

有什么建议么？

thx.

上课是解决这个问题的方法。枚举只是长值，需要有限的选择。如果您需要这些对象具有其他功能/子功能，这将为您的对象提供最大的灵活性。

这是一个简单的布局：

g国家类别：

Public North As gMA
Public South As gKS

Private Sub Class_Initialize()
    Set North = New gMA
    Set South = New gKS
End Sub

gKS 类别：

Public Property Get Colby() As String
    Colby = "Hello"
End Property

Public Property Get Hays() As String
    Hays = "World"
End Property

gMA 类别：

Public Property Get Dodge() As String
    Dodge = "Seven"
End Property

Public Property Get Muscatine() As String
    Muscatine = "Ports"
End Property

测试它：

Public Sub TestIt()

    Dim USA As New gCountry

    MsgBox USA.North.Dodge
End Sub