VBAでオブジェクトの配列を使用するには？

質問

Access2000のVBAでプログラムをしています。
VBAでクラスを作成し、プロシージャの呼び出しの引数に使用しています。あるプロシージャで、クラスの配列を作成し、呼び出し元へ返したいと思っていますが、うまくいきません。これは、できないものなのでしょうか？
---（呼び出し側)
Dim objA as clsA, aryB as variant ' 「aryB as Object」でもダメ

procB objA, aryB

Dim objTemp as Variant ' 「objTemp as Object」でもダメ
For Each objTemp In aryB ' ここでエラー「オブジェクトが必要です」
MsgBox objTemp.AAA
Next
---
--- （プロシージャ側）
Public Sub procB(ByRef objA as clsA, ByRef aryB as Variant)
Dim aryRet() as clsB, lngI as long
For lngI = 0 To 10
Redim Preserve aryRet(lngI)
Dim objTemp as clsB
Set objTemp = New clsB
Set aryRet(lngI) = objTemp
Next
aryB = aryRet
End Sub

やりたいことは、プロシージャ側でオブジェクトの配列を作成し、呼び出し側に渡して、呼び出し側で、「For Each・・・Next」で回したいと思っています。
どのようにしたら実現できるか、知っている方、よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

呼び出し側のFor Each objTemp In aryB の行へブレークポイントを設定しておいて実行し
ローカルウィンドウで ローカル変数をウォッチして見ましょう
aryBの型が Variant/Object(0to10)
のようになっていませんか？

呼び出し側で clsBの配列を準備してprocBに渡しても同じでしょうか
dim arClsB() as clsB
procB objA, arClsB
for each obnj in arClsB
next
といった具合で …

# 当方のAccess2003ではお示しのコードであっさり動いてますが…

お礼

お返事遅くなって申し訳ありません。
実際のコードのポイントを抜き出して書いたつもりなのですが、ご指摘の通りAccess2000でもあっさり動いてしまいました。
実際のコードとの違いを検証していたのですが、まだ見つかっていません。
ちなみに、アドバイスどおり呼び出し側で配列にしてから渡してもだめでした・・・
現実には、配列で返さずにCollectionオブジェクトで返すことで解決しました。
せっかくのアドバイスが無駄になって申し訳ありません。