動的配列とループ処理

Dim var_list As Variant, cnt As Integer
cnt = 0

'配列の要素追加
If cnt = 0 Then
    ReDim var_list(0)
Else
    ReDim Preserve var_list(UBound(var_list) + 1)
End If
var_list(UBound(var_list)) = "データ"
cnt = cnt + 1

補足
・ReDim 配列の再定義。例）a(30,20,ココ)一番後ろしか再定義できない。
Preserveキーワードをつけるとデータが消えない。
・Ubound 配列の最大要素番号を返す。