请问：如何创建 孙类 实例？谢谢！
类模块1：父类s   父类集合
类模块2：父类    父类
类模块3：子类s   子类集合
类模块4：子类    子类
类模块5：孙类s   孙类集合
类模块6：孙类    孙类

我在 父类s 的 Add 过程中：
public Fucntion Add
    Dim 子 As 子类
    Set 子 = 子类

    ’我想在创建子类实例时，默认的在 新创建的子类实例 里创建一个 孙的实例， 应该怎么做呢？  即怎么实现  set 孙 = 子.孙类s.add ？
end Fucntion

我是业余选手，已经先晕了，不知道说清楚没有啊，先谢谢啦！