在excel VBA中，如何按项目的字段对字典进行排序(类似于C# orderby)？

Sub SortDictionary()
    Dim dict As New Collection
    Dim item As Variant
    
    ' 添加项目到字典
    dict.Add Array("Apple", 5)
    dict.Add Array("Banana", 3)
    dict.Add Array("Orange", 7)
    
    ' 自定义排序函数
    Call SortByField(dict, 1) ' 按第二个字段排序
    
    ' 输出排序后的结果
    For Each item In dict
        Debug.Print item(0), item(1)
    Next item
End Sub

Sub SortByField(dict As Collection, fieldIndex As Integer)
    Dim i As Integer, j As Integer
    Dim temp As Variant
    
    For i = 1 To dict.Count - 1
        For j = i + 1 To dict.Count
            If dict(i)(fieldIndex) > dict(j)(fieldIndex) Then
                ' 交换位置
                temp = dict(i)
                dict.Remove i
                dict.Add temp, , j
            End If
        Next j
    Next i
End Sub