I009 FUNCTION の使い方が不正です

関数がクラスのメンバとして定義され、その戻り値の型が Variant またはオブジェクト参照以外のものとして指定されています。その関数が、戻り値の型がオブジェクト参照か、配列、リスト、オブジェクト参照を保持する Variant であるかのように参照されています。以下に例を示します。

Class MyClass
  Function MyFunction(X As Integer) As Integer
  '...
  End Function
End Class
Dim varV As Variant
Set varV = New MyClass
Print varV.MyFunction.F(1)			' Illegal.
Print varV.MyFunction.Something		' Illegal.

参照を削除するか、関数の戻り値の型を Variant に変更してください。