Option Explicit Dim intNumbers() '動的配列を宣言 ReDim intNumbers(3) '動的配列のサイズを4に Dim intCounter 'ループカウンタ変数 For intCounter = 0 To 3 '配列の0~3までに値を代入 intNumbers(intCounter) = intCounter * 2 Next '動的配列のサイズを1増やす(値は保持) ReDim Preserve intNumbers(4) intNumbers(4) = 8 Dim intTemp, strMessage strMessage = "" For Each intTemp In intNumbers '全要素に対して繰り返す ',で文字列をつなげる strMessage = strMessage & intTemp & "," Next MsgBox