ユーザ定義型を引数、戻り値に使う方法

vba

Access2007を使用していますが、苦労したぜ！
JavaでいうところのBeanみたいな使い方をしたくて
実行すると
「パブリック オブジェクト モジュールで定義されたユーザー定義型に限り、変数に割り当てることができ、実行時バインディングの関数に渡すことができます。」
と出力され、実行時エラーになってしまった。
かなわん！
色々調べてもなかなか出てこない。
で、やっとこさわかったので、あくまで備忘録で載せておこう！
まずユーザ定義型を宣言します。

Private Type TestObject
    name As String
End Type

TestObjectを引数にしたり、戻り値にしたりするプロシージャを以下のように宣言する。

Private Function setName(test As Integer) As TestObject

要はAs TestObjectの指定をしていなかったことが問題だったようだ。
迷える方は是非試してみてください。