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

3 votes200 views2 answers
Vba date to string
VBA
0 vote175 views1 answer
VBA is form loaded
VBA
0 vote175 views1 answer
Vba variable number of arguments
VBA
0 vote182 views1 answer
Vba round to 2 decimals
VBA
0 vote162 views1 answer
Excel vba clear filter
VBA
0 vote161 views1 answer
How to format a textbox as date vb net
VBA
22 votes317 views1 answer
Xl vba check for folder
VBA
0 vote164 views1 answer
Remove last 8 characters from string vb
VBA
0 vote166 views1 answer
Send text to clipboard vb.net
VBA
0 vote178 views1 answer
Excel vba textbox forecolor disabled
VBA