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 vote294 views1 answer
Vb.net get name by Cell Click
VBA
0 vote292 views1 answer
Excel vba remove formatting from cell
VBA
0 vote291 views1 answer
Vba code for cutoff time
VBA
5 votes330 views1 answer
Excel-vba get integer high byte
VBA
5 votes291 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
-1 vote260 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote279 views1 answer
Set column width of datagridview vb.net
VBA
0 vote298 views1 answer
Vba range clear formatting
VBA
1 vote281 views1 answer
Excel vba first row in range
VBA
6 votes319 views1 answer
Excel vba isalpha
VBA