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 vote157 views1 answer
Vba find last column in a row with data
VBA
13 votes295 views2 answers
Vba write text file
VBA
4 votes157 views2 answers
Excel vba last column with data
VBA
0 vote166 views1 answer
Regex numeric digits
VBA
1 vote168 views1 answer
Vba loop through files in folder
VBA
0 vote161 views1 answer
Discern between file and folder given path vb.net
VBA
0 vote194 views1 answer
Vba userform textbox wrap text
VBA
0 vote176 views1 answer
Excel vba protect shapes
VBA
1 vote150 views2 answers
Vba function return array
VBA
0 vote159 views1 answer
Vbnet find highest value in chart
VBA