Example - ReDim Statement

Sub Main()
   Dim TestArray() As Integer
   Dim i as Integer
   ReDim TestArray(10)
   For i = 1 To 10
      TestArray(i) = i + 10
      MsgBox "Current array value: " & TestArray(i)
   Next i
End Sub