以下是一个使用VBA进行字典排序的示例代码：

Sub SortDictionary()
    Dim dict As New Dictionary
    Set dict = New Dictionary
    
    ' 添加嵌套类对象数据
    dict.Add "A", New NestedClass("NameA", 25)
    dict.Add "B", New NestedClass("NameB", 10)
    dict.Add "C", New NestedClass("NameC", 50)
    
    ' 创建一个数组来存储字典的键和值
    Dim arr() As Variant
    ReDim arr(1 To dict.Count, 1 To 2)
    
    ' 将字典的键和值存储到数组中
    Dim i As Integer
    i = 1
    For Each key In dict.Keys
        Set nestedObj = dict(key)
        arr(i, 1) = key
        arr(i, 2) = nestedObj
        i = i + 1
    Next key
    
    ' 使用冒泡排序对数组进行排序
    Dim j As Integer
    Dim tempKey As Variant
    Dim tempValue As Variant
    For i = 1 To dict.Count - 1
        For j = 1 To dict.Count - i
            If arr(j, 2).Value > arr(j + 1, 2).Value Then
                tempKey = arr(j, 1)
                tempValue = arr(j, 2)
                arr(j, 1) = arr(j + 1, 1)
                arr(j, 2) = arr(j + 1, 2)
                arr(j + 1, 1) = tempKey
                arr(j + 1, 2) = tempValue
            End If
        Next j
    Next i
    
    ' 打印排序后的结果
    For i = 1 To dict.Count
        Debug.Print arr(i, 1) & ": " & arr(i, 2).Name & ", " & arr(i, 2).Value
    Next i
End Sub

' 嵌套类对象
Class NestedClass
    Public Name As String
    Public Value As Integer
    
    Public Sub Class_Initialize()
        Name = ""
        Value = 0
    End Sub
    
    Public Sub Class_Terminate()
        ' 清理对象
    End Sub
    
    Public Sub New(ByVal newName As String, ByVal newValue As Integer)
        Name = newName
        Value = newValue
    End Sub
End Class

在这个示例中，我们创建了一个Dictionary对象，并向其添加了三个具有嵌套类对象数据的元素。然后，我们创建一个数组来存储字典的键和值，并使用冒泡排序对数组进行排序。最后，我们打印排序后的结果。

请注意，示例中包含一个名为NestedClass的嵌套类对象。这个类包含两个公共变量Name和Value，以及一个构造函数New来初始化这些变量。您可以根据自己的需求修改这个嵌套类对象。