I012 SUB の使い方が不正です

サブルーチンがクラスのメンバとして定義され、それがメンバ関数、プロパティ、変数であるかのように参照されています。以下に例を示します。

Class MyClass
   Sub MySub
   '...
   End Sub
End Class
Dim varV As Variant
Set varV = New MyClass
X = varV.MySub			' Illegal: a sub doesn't have a return value.
varV.MySub = 5			' Illegal: you can't assign a sub a value.

参照を削除するか、サブルーチンを適切な型のクラスメンバとして再定義してください。