Sort dictionary by key vba

Public Function funcSortKeysByLengthDesc(dctList As Object) As Object
    Dim arrTemp() As String
    Dim curKey As Variant
    Dim itX As Integer
    Dim itY As Integer

    'Only sort if more than one item in the dict
    If dctList.Count > 1 Then

        'Populate the array
        ReDim arrTemp(dctList.Count - 1)
        itX = 0
        For Each curKey In dctList
            arrTemp(itX) = curKey
            itX = itX + 1
        Next

        'Do the sort in the array
        For itX = 0 To (dctList.Count - 2)
            For itY = (itX + 1) To (dctList.Count - 1)
                If Len(arrTemp(itX)) < Len(arrTemp(itY)) Then
                    curKey = arrTemp(itY)
                    arrTemp(itY) = arrTemp(itX)
                    arrTemp(itX) = curKey
                End If
            Next
        Next

        'Create the new dictionary
        Set funcSortKeysByLengthDesc = CreateObject("Scripting.Dictionary")
        For itX = 0 To (dctList.Count - 1)
            funcSortKeysByLengthDesc.Add arrTemp(itX), dctList(arrTemp(itX))
        Next

    Else
        Set funcSortKeysByLengthDesc = dctList
    End If
End Function

Source: stackoverflow.com

Similar codes

0 vote238 views1 answer
Vba cell all borders
VBA
0 vote198 views1 answer
Vba border weight
VBA
0 vote239 views1 answer
Vb ternary
VBA
0 vote214 views1 answer
Vba clear collection
VBA
0 vote212 views1 answer
Vba apostrophe chr
VBA
0 vote246 views1 answer
Vba userform textbox wrap text
VBA
1 vote145 views1 answer
Ms access open form to new record
VBA
4 votes200 views2 answers
Vba array length
VBA
0 vote207 views1 answer
Vba option button selected
VBA
4 votes221 views1 answer
Excel vba Imitating the "IN" operator from python
VBA