VBA ループ処理で配列に要素を追加していく

Dim arr() As String
For i = 0 To 4
    If isArrayEx(arrPkey) = -1 Then
        '初期化されていないので初期化
        ReDim Preserve arrPkey(0)
    Else
        '初期化されているので要素を追加
        ReDim Preserve arr(UBound(arr) + 1)
    End If
    arr(UBound(arr)) = i * 2
Next

'結果
'arr(0) 0
'arr(1) 2
'arr(2) 4
'arr(3) 6
'arr(4) 8

Dim arr() As String

ReDim Preserve arrPkey(0) '初期化

'Ubound(arr)の結果は0(0が最大のインデックス)
arr(UBound(arr)) = "a"


ReDim Preserve arr(UBound(arr) + 1) '値を保持したまま配列を最大のインデックス+1で再定義

'Ubound(arr)の結果は1(1が最大のインデックス)
arr(UBound(arr)) = "b"


ReDim Preserve arr(UBound(arr) + 1) '値を保持したまま配列を最大のインデックス+1で再定義

'Ubound(arr)の結果は2(2が最大のインデックス)
arr(UBound(arr)) = "c"

'--------------------------------------------------------------
'機能：引数が配列か判定し、配列の場合は空かどうかも判定する
'戻り値：判定結果（1:配列 / 0:空の配列 / -1:配列ではない
'--------------------------------------------------------------
Public Function isArrayEx(varArray As Variant) As Long
On Error GoTo ERROR_
    If IsArray(varArray) Then
        isArrayEx = IIf(UBound(varArray) >= 0, 1, 0)
    Else
        isArrayEx = -1
    End If

    Exit Function

ERROR_:
    If Err.Number = 9 Then
        isArrayEx = 0
    Else
        '想定外エラー
    End If
End Function