S001 SET はクラス定数の割り当てのみに使用されます

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

Class MyClass
'...
End Class
Dim varV As Variant
Dim otherVarv As Variant
Dim X As New MyClass
Set varV = X
otherVarV = varV			' Illegal.
otherVarV = New varV		' Illegal.
Set otherVarV = varV		' Legal.
Set otherVarV = New varV	' Legal.

代入ステートメントに Set キーワードを記述するか、そのステートメントを削除してください。