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 vote227 views1 answer
Nested if else in vb.net
VBA
6 votes231 views1 answer
Excel vba get the path of current workbook
VBA
1 vote230 views1 answer
Excel vba to lower case
VBA
1 vote222 views1 answer
Random number generator vb.net
VBA
0 vote241 views1 answer
Excel web scraping
VBA
1 vote175 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote287 views1 answer
Excel vba paste all to each sheet in workbook
VBA
1 vote228 views1 answer
Vbscript convert ascii code to character
VBA
0 vote207 views1 answer
Vbnet display all axis labels in cahrt
VBA
0 vote221 views1 answer
Vbnet check if number is even or odd
VBA