Hi Nikolay, +call testWeekday(DateSerial(2000, 1, 1), vbSaturday, 1) +call testWeekday(DateSerial(2000, 1, 1), vbSaturday, 1) You have this line twice. Is this intentional? Maybe you could add a test where second argument of Weekday is omitted. Thanks, Robert