Dim dicTest As Scripting.Dictionary
 
Public Sub main()
    Dim oClsTest As ClsTest
    Dim iIndex As Integer
 
    Set dicTest = New Scripting.Dictionary
    For iIndex = 1 To 10
        Set oClsTest = New ClsTest
        oClsTest.sName = "Name" + CStr(iIndex)
        dicTest.Add oClsTest.sName, oClsTest
    Next
 
    For Each oClsTest In dicTest.Keys
        Debug.Print oClsTest.sName
    Next
End Sub

Option Explicit
 
Public sName As String

For Each oClsTest In dicTest.Keys