Thanks for your help!
But in AttachMate Extra! Macro Editor V6.7, it can not run correctly.
' *********************************
Dim dic As Object
Dim keyColl, i
Set dic = CreateObject("Scripting.Dictionary")
dic.Add "a", "1"
dic.Add "b", "2"
dic.Add "c", "3"
keyColl = dic.Keys
For i = 0...