VBAで配列に要素を追加する

いちいちRedimするのが面倒なのでSubにまとめる。
オブジェクト配列対応のつもり（未検証）。

' 配列（一次元配列）に要素を追加してデータ格納
'   varArray: 　参照渡しの配列変数
'   varData:    格納するデータ
Sub push_array(ByRef varArray As Variant, varData As Variant)
    If IsArray(varArray) Then
        If UBound(varArray) = -1 Then   ' 空配列（要素数0）
            ReDim varArray(0)
        Else
            ReDim Preserve varArray(UBound(varArray) + 1)
        End If
    Else
        ReDim varArray(0)
    End If
    
    If IsObject(varData) Then
        Set varArray(UBound(varArray)) = varData
    Else
        varArray(UBound(varArray)) = varData
    End If
End Sub