Date Functions VisualBasic Script

Sub redimDemo()
    Dim MyArray() As Integer
    ReDim MyArray(12)
    ReDim Preserve MyArray(12)
End Sub