A partial solution is to declare a date variable and test the input
values with it, e.g.
Dim dt1 as Date
dt1 = s(0)

If the input value isn't a date, a type mismatch will result.

Hth,
Merjet