VBA [类] - 如何访问另一个子中先前实例化的类实例

我在程序的特定子程序中创建了类“Dog”的实例“Lassie”。我还给了它一些有用的属性，例如 Lassie.Age = 7 和 Lassie.HeelCapability = False。

现在我想访问anothersub 并将 Lassie.HeelCapability 更改为 True。 我如何在这个新子中定义实例“Lassie”以便可以使用它？

我遇到的所有代码都是这样的：

Dim Lassie As classDog

Set Lassie = New classDog

本质上，我正在寻找一种将现有实例“Lassie”导入另一个子实例的方法，而不使用关键字“New”，从而创建一个新的“Lassie”（没有之前给出的所有属性）。

我收到的错误消息告诉我“需要对象”或“对象变量或未设置块变量”。

当然有办法做到这一点。

提前致谢。

您需要将“Lassie”作为参数传递给您的其他子系统。

public sub DeclareSub()
  Dim Lassie as classDog
  Lassie = new classDog

  OtherSub Lassie
end sub

public sub OtherSub(ByRef dog as classDog) 

end sub

子例程“OtherSub”中的变量“dog”引用与“DeclareSub”中的变量“Lassie”相同的对象实例。