Создай еще один класс, который содержит контролы в коллекции.

События обрабатываются контролов в классе Con
Cons - содержит все классы Con в коллекции

Private MyControls As Collection

Public Sub Add(btn As CommandButton)
Dim c As Con ' класс который нужно добавить в коллекцию
Set c = New Con
c.Init btn
MyControls.Add c, btn.Name
End Sub

Private Sub Class_Initialize()
Set MyControls = New Collection
End Sub

Private Sub Class_Terminate()
Set MyControls = Nothing
End Sub

Это только мааааленький пример. А для хорошего класса нужно добавить свойство Parent, методы Item, Delete и много еще чего.