It could be that you need to redim the array before filling it.
This works for me

Dim A As Variant, i As Integer
ReDim A(0 To 5) As Variant
A(0) = Date
A(1) = Date + 1
MsgBox A(0) & " " & A(1)