【VBA】配列は動的配列一択である理由と配列宣言の最適解

Sub Test1()

'要素数3-1＝2を（）に入れる
Dim Arrs(2) As String
Arrs(0) = "リンゴ"
Arrs(1) = "バナナ"
Arrs(2) = "リンゴ"

'For each文で配列の要素を全て取り出す
Dim arr As Variant
For Each arr In Arrs()
    Debug.Print arr
Next
End Sub

Sub Test2()

'要素数3-1＝2を（）に入れる
Dim Arrs(2) As String
Arrs(0) = "リンゴ"
Arrs(1) = "バナナ"
Arrs(2) = "リンゴ"

'要素数の変更
ReDim Preserve Arrs(3) '>>ここでエラーが発生する。静的配列の要素数は変更できないため。
Arrs(3) = "パイナップル"

End Sub

Sub Test3()

Dim Arrs() As Variant
ReDim Preserve Arrs(2)
Arrs(0) = "リンゴ"
Arrs(1) = "バナナ"
Arrs(2) = "リンゴ"


'要素数
Dim Arr As Variant
For Each Arr In Arrs
    Debug.Print Arr
Next

'要素の追加
ReDim Preserve Arrs(3)
Arrs(3) = "パイナップル"
Debug.Print Arrs(3)

End Sub

Sub Test4()

'宣言は()をつけてもつけなくてもいい。Dim Arrs() As VariantでもOK
Dim Arrs As Variant
Arrs = Array("リンゴ", "バナナ", "リンゴ")


'要素数
Dim Arr As Variant
For Each Arr In Arrs
    Debug.Print Arr
Next

'要素の追加
ReDim Preserve Arrs(3)
Arrs(3) = "パイナップル"
Debug.Print Arrs(3)

End Sub

Sub Test5()

'宣言時に()はつけない
Dim arrs As Variant

arrs = Array("リンゴ", "バナナ", "リンゴ")

Call addElm(arrs, "パイナップル")
Call addElm(arrs, "スイカ")
Call addElm(arrs, "イチゴ")

Dim arr As Variant
For Each arr In arrs
    Debug.Print arr
Next

End Sub


Function addElm(ByRef arrs As Variant, ByVal elm As Variant)
    Dim num As Long
    
    'Is_correct_array関数で配列がエラーを起こす空の状態かどうか判定
    
    'エラーを起こす空の状態
    If Not IsCorrectArray(arrs) Then
    
        '要素数が一つ＝「0」で宣言
        ReDim arrs(0)
        arrs(0) = elm
    
    'エラーを起こす空の状態ではない
    Else
        num = UBound(arrs)
        ReDim Preserve arrs(num + 1)
        arrs(num + 1) = elm
    End If
End Function

Function IsCorrectArray(ByVal arrs As Variant)
    Dim a As Long
    
    'なんでもいいが、エラーを生じさせる
    On Error GoTo err
    a = UBound(arrs)

    'エラーが生じたときエラー番号で9か13の場合はFalse
err:
    If err.number = 9 Or err.number = 13 Then
        IsCorrectArray = False
    Else
        IsCorrectArray = True
    End If
    
End Function