vba-ArrayList

TIListBox.MultiSelect = 1
    TIListBox.ListStyle = 1
    TIListBox.ColumnWidths = 62
    TIListBox.ColumnCount = 1
    
    Dim arr, brr
    C_Control arr, brr
    
    '将记录集显示到列表框中
    Dim i As Integer
    With TIListBox
        .Clear  '先清空再添加
        For i = 1 To UBound(arr)
           .AddItem brr(i)
        Next
    End With

https://blog.csdn.net/lyfegf/article/details/103746134