How can I populate a public array with static text values.

[USAMax]

I understand how to create an array within a routine:

CurOptions = Array("M1", "M3", "M3 DSR", "L1", "L2", "CSA")


But I need the array to be public as the array can hold one of 6 different sets of values so I will declare the array to be only used within the module as:

Dim CurOptions(30)


Later I need to fill in the values manually, they will not be copied in, they need to be provided in a list.

It should be just one line,

Thank you,

 

[USAMax]

I found a way but it is not pretty. Is there any other way than this to populate a public array other than this?

COA(0) = "M1": COA(1) = "M3": COA(2) = "M3 DSR": COA(3) = "L1": COA(4) = "L2": COA(5) = "CSA"