scripting.Dictionary.keysにSortがない

ぐぐってみると .Net のArrayListを使ったりという情報があるけど、そこまでしたくない時。
WorksheetFunction.Sortが使えた。

    Dim dicSum As New Dictionary, v

    'なんか格納

    For Each v In WorksheetFunction.Sort(dicSum.Keys, 1, 1, True)
        Debug.Print "key: " v & " val : " & dicSum(v)
    Next