Option Explicit
Option Base 1
Sub vba_array_add_value()
    Dim myArray() As Variant
    ReDim myArray(2)
    myArray(1) = 5
    myArray(2) = 10
    ReDim Preserve myArray(1 To 3)
    myArray(3) = 15
    Debug.Print myArray(1)
    Debug.Print myArray(2)
    Debug.Print myArray(3)
End Sub