配列のサイズを動的に変更する方法

Option Explicit
 
Sub Test()
    '最初に配列のサイズを決めない。動的配列として宣言する。
    Dim strNames() As String
    Dim i As Integer
    
    '配列の最大インデックスを0に変更する。
    ReDim Preserve strNames(0)
    
    strNames(0) = "太郎"
 
    For i = LBound(strNames) To UBound(strNames)
        Debug.Print ("1回目のループ：" & i & "の値→" & strNames(i))
    Next i
    
    '配列の最大インデックスを5に変更する。
    ReDim Preserve strNames(5)
    
    strNames(1) = "次郎"
    strNames(2) = "三郎"
    strNames(3) = "四郎"
    strNames(4) = "五郎"
    strNames(5) = "六郎"
    
    For i = LBound(strNames) To UBound(strNames)
        Debug.Print ("2回目のループ：" & i & "の値→" & strNames(i))
    Next i
End Sub