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 vote274 views1 answer
Vba date to unix timestamp
VBA
2 votes280 views1 answer
Vba file from path
VBA
0 vote256 views1 answer
Vba get text file content
VBA
1 vote279 views1 answer
Random number generator vb.net
VBA
0 vote273 views1 answer
Vba check 32 or 64 bit
VBA
5 votes277 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote281 views1 answer
Excel vba unlock sheet without password
VBA
0 vote288 views1 answer
Columns dont autoresize on program start vb.net
VBA
4 votes279 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
5 votes258 views1 answer
Vba array worksheet.index
VBA