Sub sortList_test() Set obj = CreateObject("pcom.WSC") Dim l() As Variant l = obj.sortList("fox", "dog", "moose", "cat", "fish") For Each li In l Debug.Print li Next li End End Sub Sub getHash_test() Set obj = CreateObject("pcom.WSC") Dim hash As Scripting.Dictionary Set hash = obj.getHash("dogHash") Debug.Print "Buddy is my " & hash.Item("buddy") End Sub Sub getScalar_test() Set obj = CreateObject("pcom.WSC") scalar = obj.getScalar(1) Debug.Print scalar scalar = obj.getScalar("a string! from VB") Debug.Print scalar End Sub