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 vote182 views1 answer
Open file dialog in vb.net
VBA
1 vote187 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote174 views1 answer
Vba parameter adodb null value
VBA
0 vote212 views1 answer
Vba foreach 2d array
VBA
0 vote226 views1 answer
Visual basic cmd
VBA
0 vote171 views3 answers
Write to text file vb.net
VBA
4 votes204 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
0 vote170 views1 answer
Vba leading zeros in string
VBA
1 vote167 views1 answer
Vba reverse string
VBA
2 votes230 views1 answer
Vba round number
VBA