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

Set ステートメントを使用して、オブジェクト参照以外のものを変数に代入しようとしました。以下に例を示します。

Class MyClass
   Public X As Integer
End Class
Dim MyObjRef As New MyClass
Set MyObjRef.X = 5           ' Illegal
Let MyObjRef.X = 5           ' Legal
MyObjRef.X = 5               ' Legal

Set キーワードを削除するか、それを Let キーワードに置き換えてください。