配列のバリアント型を作成することは可能なのか

Question

前提・実現したいこと

初投稿失礼します。
シートのデータを全て取得し日毎の履歴を作成したいと考えております。
バリアント型にてシートを格納するところまではよかったのですが
バリアント型が配列じゃないためループ文で回して比較ということができません。
これら30日分のデータをループで比較することはできますか？
よろしくおねがいします。

該当のソースコード

Function DateGet(strFile) As Variant

Set fso = CreateObject("Scripting.FileSystemObject")
strFiletmp = "C:\temp\temp.xlsx"
'エラー処理
On Error GoTo myError
'サーバーからデータをコピー
fso.CopyFile strFile, strFiletmp, True
'ブックを開く
Set wbOpen = Workbooks.Open(strFiletmp, Password:="XXXX", WriteResPassword:="XXXX")
'セル全体をコピー
DateGet = wbOpen.Sheets(1).UsedRange
'コピー前のブックを閉じる
wbOpen.Close

myError: 'エラージャンプ
' 後始末
Set fso = Nothing

End Function

Sub データ比較()
'取得したファイル名を片っ端から開いていく
Va0 = DateGet(strFileDay(0))
Va1 = DateGet(strFileDay(1))
Va2 = DateGet(strFileDay(2))
Va3 = DateGet(strFileDay(3))
Va4 = DateGet(strFileDay(4))
Va5 = DateGet(strFileDay(5))
Va6 = DateGet(strFileDay(6))
Va7 = DateGet(strFileDay(7))
Va8 = DateGet(strFileDay(8))
Va9 = DateGet(strFileDay(9))
Va10 = DateGet(strFileDay(10))
Va11 = DateGet(strFileDay(11))
Va12 = DateGet(strFileDay(12))

Va26 = DateGet(strFileDay(26))
Va27 = DateGet(strFileDay(27))
Va28 = DateGet(strFileDay(28))
Va29 = DateGet(strFileDay(29))
Va30 = DateGet(strFileDay(30))
Va31 = DateGet(strFileDay(31))

End Sub

申し訳ありません
このように記述したら格納できましたお騒がせしました
Dim a(31) As Variant
a(26) = Va26
a(27) = Va27

Answer 1

バリアント型にてシートを格納するところまではよかったのですが

バリアント型が配列じゃないためループ文で回して比較ということができません。

Va0 Va2 ・・・Va31 をループで比較したいということでしょうか。
なら、これを配列にすればいいだけでは。

    Dim Va(31) As Variant
    Dim i As Long
    For i = 0 To 31
        Va(i) = DateGet(strFileDay(i))
    Next

これでVaは配列なのでループで回することはできます。