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 vote301 views1 answer
Excel vba disable alerts
VBA
0 vote310 views1 answer
Get current url vb.net
VBA
0 vote317 views1 answer
Vb run command
VBA
0 vote344 views2 answers
Vb.net include quotes in string
VBA
0 vote312 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote333 views1 answer
Vba variable number of arguments
VBA
0 vote343 views1 answer
Create links in msgbox in vb
VBA
0 vote332 views1 answer
Priavte sub with multiple handels find sneder
VBA
1 vote340 views1 answer
Random number generator vb.net
VBA
0 vote299 views1 answer
Docker vboxmanage not found
VBA