Solved: Bulk assignment to VBA arrays

[mancubus]

hi.
try:

[vba]
Dim aArray
Dim index As Integer

aArray = Array(1, 2, 3)

For index = LBound(aArray) To UBound(aArray)
MsgBox aArray(index)
Next
[/vba]


or
[vba]
Dim aArray(2) As Integer
Dim index As Integer

aArray(0) = 1
aArray(1) = 2
aArray(2) = 3

For index = LBound(aArray) To UBound(aArray)
MsgBox aArray(index)
Next
[/vba]


or
[vba]
Dim aArray(2) As Integer
Dim index As Integer

For index = 0 To 2
aArray(index) = index + 1
Next

For index = LBound(aArray) To UBound(aArray)
MsgBox aArray(index)
Next
[/vba]


or
[VBA]
Dim aArray(1 To 3) As Integer
Dim index As Integer

For index = 1 To 3
aArray(index) = index
Next

For index = LBound(aArray) To UBound(aArray)
MsgBox aArray(index)
Next
[/VBA]