不太清楚你的困難點，貼一段陣列值的處理
包括基本陣列的定義，值的設定以取迴圈處理參考

Sub Macro1()
Dim A()
A = Array(1, 2, 3, 4, 5)
For I = 0 To 4
MsgBox A(I), vbOKOnly
Next
End Sub