excelvbaで動的配列やるならRedimだけど、中身壊したくないならPreserveつけよう

Sub Sample37()
    Dim Member() As String
    MsgBox "要素数を再定義します"
    ReDim Member(2)
    Member(1) = "tanaka"
    Member(2) = "yamada"
    ReDim Preserve Member(3)
    Member(3) = "sato"
    MsgBox "1人目は" & Member(1)
End Sub

ネタ元

• http://officetanaka.net/excel/vba/variable/08.htm