Here is the way to convert dates to array. Replace the normal quotes used for string to hash (#).
Function Convert_Date_Into_Array()
Dim arDates
arDates = Array(#1/1/2008#, #2/1/2008#, #3/1/2008#)
For i = 1 To UBound(arDates)
MsgBox arDates(i)
Next i
End Function
The Array Function returns a Variant containing an array.
Syntax
Array(arglist)
The required arglist argument is a comma-delimited list of values that are assigned to the elements of the array contained within the Variant. If no arguments are specified, an array of zero length is created.