Sort key and item in dictionary using arraylist

[daboho]

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