Scripting Dictionary add additional items

Hi experts,

I have a code below for scripting dictionary:

            With ThisWorkbook.Sheets("computation")
                For lctr = 2 To 13
                    aCompensation.Add .Cells(2, lctr), .Cells(5, lctr)
                Next
            End With
                            
            aType = aCompensation.Keys
            aFruits = aCompensation.Items

            'i.e. 
            if aType(1) = "Fruits" then
                  'add items 
            End if

My question is for example the 1st key is "Fruit" and the 1st item is "Apple",
is it possible to add "Orange" on the 2nd item of "Fruit" on separate line/loop?

Thanks in advance!
thisisgerald