Sort key and item in dictionary using arraylist

1.I want sort key and item in dictionary using arraylist
2.how to see item in arraylist
If in dict msgbox join(dic.items,",")
How to do in arraylist

Sub join_DIC()
Dim dic As Object: Set dic = CreateObject("scripting.dictionary")
 With CreateObject("system.collections.arraylist")
        For Each dn In Array(1, 2, 3, 4, 5, 56, 1, 2, 1, 12, 1, 2)
                dic(dn) = dn
               .Add dn
        Next dn
        'how to sort key in dic using CreateObject("system.collections.arraylist")
        'i key has sort in dic then items in dict also sort
     .Sort
     MsgBox Join(dic.keys, ",")
    'how to shows allitem in arraylist
 End With
End Sub

Thank you bakerman
[code]Sub()
Dim dic as object
Set dic createObject("Scripting Dictionary")

dic("z") = "xxhh"
dic("x") = "hhhh"
dic("g") = "aa"
dic("a") = "bb"
How to sort key in dic and item also to sort using arraylist
How to show items in dic after sort
Key in dic than item will be auto to sort
In arraylist is can to show items of dic ?
Thank my friend

Though I have never seen it in practice, a dictionary is not guaranteed to maintain its order. If you need order, you may be better off using a collection

[A1:C1] = .toarray