[VB]変動的な配列を扱う方法。

よく忘れるので。
とゆーかVB6以降ならそもそも配列を使わないかもしれないが。

'---------------------------------------------------------
'まず宣言。
Dim ArrayA() As String

'いくつになるかわからないがとにかく格納していく。
For i = 0 to ThisWorkbook.thisWorkSheet.Range("ｶｳﾝﾄ数").value

      ReDim Preserve   ArrayA(i)
     Array(i) = ThiwWorkBook.ThisWorkSheet.cells(1, 2 + i)

Next

'---------------------------------------------------------


ポイントは　ReDim Preserve 　です。