Post is a bit old, but Ill throw in 2c (if it helps).
You can't fill at declaration, but Form_Load should be as effective unless
you dont have a form..
Dim myString(1 To 3) As String
Private Sub Form_Load()
myString(1) = "blah1"
myString(2) = "blah2"
myString(3) = "blah3"
End Sub
If you dont need to change the values, you could try constants (not an array) ;
Private Enum myInt
one& = 1
two& = 2
three& = 500
End Enum
myInt.one would return 1.
hth
