まだ質問に付合ってくださるようで、感謝します。

具体的には以下のような書方の出来るクラスFuncObjを定義したいです。

Dim a As FuncObj

'関数のように使える
a() '引数なし関数呼出し
Dim x As Long = a(1) '引数あり関数呼出し

'クラスメンバにもアクセス出来る
a.field1 = 1 'メンバフィールドに代入
a.property1 = "aaa" ’メンバプロパティに代入
a.func1(1) ’メンバ関数呼出し