VBA通过FOR EACH循环遍历对象

i have created a class named category, which has 3 attributes. In my main class i am setting up 10 instances of type category. Whith an init-function i initialize these objects so i can use them- Now i want to loop through these objects. I have searched for 2 hours and the only thing i found is, that the only solution is to create a collection of these objects. You see my code sample below:i have created a class named category, which ha