追加質問で
Dim i1,i2,i3,i4,i5 as integer
を書くのもめんどうなので
For A=1to 5
dim iA as integer
Next
みたいに書くにはどうすれば