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 vote140 views1 answer
Change whcih control a user has selected vb
VBA
0 vote154 views1 answer
Vb.net change cursor to wait
VBA
0 vote156 views1 answer
Vba range clear formatting
VBA
7 votes169 views1 answer
Excerl vba array to range
VBA
0 vote152 views1 answer
Vba word open document read only
VBA
0 vote161 views1 answer
Find if year is leap year vb
VBA
8 votes266 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote144 views1 answer
Vba leading zeros in string
VBA
0 vote173 views2 answers
Get unique random number in vb.net
VBA
0 vote152 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA