: Dim payDates(00) as Date    For index As Integer = 0 to 00         Redim Preserve payDates(index)          payDates(index) = payDates(index).AddDays(0)         index +=0   NEXT    Response.Write(payDates)  A