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

1 vote187 views2 answers
Excel vba password protect
VBA
0 vote158 views1 answer
How to self delete a vbscript file
VBA
6 votes178 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote211 views1 answer
Set datetimepicker value to null vb
VBA
0 vote170 views1 answer
Vb get ip address
VBA
0 vote194 views4 answers
Vgrive,deb
VBA
-1 vote198 views1 answer
Code for reading letters only in vb 6
VBA
0 vote176 views1 answer
Compare dates vb
VBA
0 vote171 views1 answer
Type excel.application is not defined vb
VBA
0 vote171 views1 answer
Excel vba join variant array
VBA