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 vote261 views1 answer
Vbs run with cscript
VBA
1 vote231 views1 answer
Add control vb
VBA
0 vote224 views1 answer
Vba first line of string
VBA
1 vote232 views1 answer
Export datagridview to excel vb.net
VBA
0 vote243 views1 answer
Ribbon show/hide
VBA
0 vote236 views1 answer
Vba html document reference
VBA
0 vote260 views1 answer
Visual basic cmd
VBA
0 vote236 views1 answer
Vbnet chart make 0 gridline line different color
VBA
0 vote230 views1 answer
.net dark title bar
VBA
0 vote240 views1 answer
Vbnet hex to binary
VBA