VBA array of objects

vba-array-of-obj.md

Array of Objects in VBA

Sub Button1_Click()

    Dim arr() As Object
    Dim data As Object
    
    ' Create the object
    Set data = CreateObject("Scripting.Dictionary")
    data.Add "type", "C0"
    data.Add "amount", 100
    
    ' Resize the array and assign the object to the first element
    ReDim arr(0)
    Set arr(0) = data
    
    ' Accessing the object in the array
    MsgBox "Type: " & arr(0)("type") & ", Amount: " & arr(0)("amount")

End Sub