Hi dear forum members.
Consider the following:
Const MyConst = "A" & "B" & "C" & "D"
Sub Test()
Dim Myarray() As Variant
Myarray = Array(MyConst)
Debug.Print Myarray(0); Myarray(1); Myarray(2); Myarray(3)
End Sub
Of course, the above code won't work but you get the idea ...