Private Sub Command1_click()
Dim i as integer
Dim iCounter as interger
dim iArray as integer
 
For i = 1 to 10
     iCounter = iCounter + 1
     redim iArray(i)
     iArray(i) = iCounter
next i
 
debug.print iArray(5) 'Normal doch 5 Oder
end sub