Kayıt formunuz altındaki,
Public Sub FillCalendarGrid() altında
'Show dates in calendar
vFirst = DateSerial(txtYear, txtMonth, 0)
yerine
'Show dates in calendar
vFirst = DateSerial(txtYear, txtMonth, 1)
yani 0 yerine 1 yazarsanız takvim denetiminiz sorunsuz çalışacaktır.