Transfer Dictionary data to an Array, but getting "subscript out of range"

[Certified]

My code is running into a Run-time error 9 (Subscript out of range).

When the code is debugged, the line printed in red is highlighted.

Here is my function:

Function populateDict(thearraY As Variant, retunArray As Variant) As Variant
Dim i As Integer

Dim key As Variant

    For i = 1 To UBound(thearraY)
    
        If theDict.Exists(thearraY(i, 2)) Then
        
        theDict(thearraY(i, 2)) = theDict(thearraY(i, 2) + thearraY(i, 8))
        
        
        Else
        
        theDict.Add key:=thearraY(i, 2), Item:=thearraY(i, 8)
    
        End If
    
    Next i
    
    i = 1
    
    ReDim Returnarry(UBound(thearraY), 2)
    
    For Each key In theDict.Keys
          [COLOR=#ff0000]
              returnArray(i, 1) = key[/COLOR]

              returnArray(i, 2) = theDict(key)

              i = i + 1             
            
              
        Next key    
    
End Function

At the error, i = 1, Key = "GEMS" theDict(key) = "Percentage", theDict has a count of 566, and the ubound(thearray) figure is 571.

I can't figure out why I am getting a out of range error.

 

[Certified]

Yes, found my issue. I will choose my the name of my variables more carefully.

Thanks!

 

[V_Malkoti]

In your steps, you didn't mention if you are initializing the array by assigning it some other array, resizing it with ReDim [Preserve]. Only declaring array creates a zero sized array. Unless you initialize it, it has size 0.

The ReDim statement in populateDict is not resizing returnArray; it is resizing Returnarry (notice the difference in spelling). After resizing Returnarry, you are trying to assign values to returnArray. Did you mean to resize variable returnArray instead?

populateDict is actually taking two parameters in your code. What's the second one for? I don't see retunArray being used anywhere.