访问等效于C#List <T>的VBA

Dim myList() As Variant
ReDim myList(0 To 4) ' 定义数组大小为5

' 添加元素
myList(0) = "Apple"
myList(1) = "Banana"
myList(2) = "Orange"
myList(3) = "Grapes"
myList(4) = "Mango"

' 访问元素
MsgBox myList(2) ' 输出"Orange"

' 遍历数组
For i = LBound(myList) To UBound(myList)
    MsgBox myList(i)
Next i

Dim myList As Collection
Set myList = New Collection

' 添加元素
myList.Add "Apple"
myList.Add "Banana"
myList.Add "Orange"
myList.Add "Grapes"
myList.Add "Mango"

' 访问元素
MsgBox myList(3) ' 输出"Grapes"

' 遍历集合
For Each item In myList
    MsgBox item
Next item