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 vote219 views1 answer
Search combobox items vb.net
VBA
0 vote217 views1 answer
Pivot data source not accepting table named range vba
VBA
1 vote201 views1 answer
Vba delete array element
VBA
0 vote218 views1 answer
Reset border color textbox vba
VBA
1 vote209 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote217 views1 answer
Vba paste values
VBA
1 vote206 views1 answer
Excel vba saveas force overwrite
VBA
0 vote208 views1 answer
VBA Sleep Snippet
VBA
22 votes507 views1 answer
Xlvba check for folder
VBA
0 vote245 views1 answer
Set datetimepicker value to null vb
VBA