クラスのインスタンスに SET の割り当てが必要です (メッセージの説明)

変数にオブジェクト参照を割り当てようとしましたが、Set キーワードが省略されています。オブジェクト参照では、ユーザー定義クラスのインスタンス、製品のオブジェクト OLE オートメーションオブジェクト、または定数 NOTHING を参照できます。オブジェクト参照の代入では Set キーワードが必要です。以下に例を示します。

Class MyClass
' ...
End Class
Dim MyObj As New MyClass
Dim varV As Variant
varV = MyObj          ' Illegal syntax

代入ステートメントに Set キーワードを挿入してください。

Class MyClass
' ...
End Class
Dim MyObj As New MyClass
Dim varV As Variant
Set varV = MyObj     ' Legal syntax