VBA collection: list of keys

Question

After I add some values to the VBA collection, is there any way to retain the list of all keys?

For example

Dim coll as new  Collection
Dim str1, str2, str3
str1="first string"
str2="second string"
str3="third string"
coll.add str1, "first key"
coll.add str2, "second key"
coll.add str3, "third key"

I know how to retain the list of strings:

first string
second string
third string

Once again: is there any way to retain the keys?

first key
second key
third key

Note: I'm using VBA through AutoCAD 2007

Answer 1

If you intend to use the default VB6 Collection, then the easiest you can do is:

col1.add array("first key", "first string"), "first key"
col1.add array("second key", "second string"), "second key"
col1.add array("third key", "third string"), "third key"

Then you can list all values:

Dim i As Variant

For Each i In col1
  Debug.Print i(1)
Next

Or all keys:

Dim i As Variant

For Each i In col1
  Debug.Print i(0)
Next