Не Dum а Dim конечно. Эта переменная не может иметь значение NULL, она имеет тип Date, и при создании получит значение нулевой даты. Можете сравнить ее с нулем:
If CurDate = 0 Then CurDate = Now()
Либо, если нулевая дата является рабочим значением, то можно завести отдельный флаг.