>This returns an empty date:
>
>

>        ' Return an empty date
>        ' expT1 Date
>        Public Function GetEmptyDate() As Date
>            Return New Date(1899, 12, 30, 0, 0, 0)
>        End Function
>

How do you figure that 12/30/1899 is an empty date? An empty date is no date.