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 vote250 views1 answer
Return na vba
VBA
8 votes507 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote229 views1 answer
Limit combobox to list vba
VBA
0 vote239 views1 answer
Reset border color textbox vba
VBA
0 vote267 views1 answer
Excel vba scroll to cell
VBA
0 vote223 views1 answer
Vba full date format
VBA
0 vote212 views1 answer
How to self delete a vbscript file
VBA
5 votes264 views1 answer
Excel vba how to unit test vba code
VBA
0 vote259 views1 answer
Create new worksheet excel visual basic
VBA
0 vote218 views1 answer
Vba createparameter null
VBA