VBA And WSH(Windows Script Shell)

'VBAよりソート機能付きリストを利用
Dim sortlist as object
sortlist = CreateObject("System.Collections.SortedList")
sortlist.add "abc"
sortlist.add "a1"
sortlist.add "b1"

Dim item
For Each item in sortlist
    debug.print item
Next

'========================
a1
abc
b1