Kalender-Steuerelement

Dazu habe ich folgenden Code eingesetzt:

------------
Private Sub UserForm_Initialize()

Dim dateT As Date
dateT = DateValue(Date)

Calendar1.Value = dateT
Exit Sub

End Sub
------------

Problem: das funktioniert zwar in Office XP, nicht aber in 2000. Hat jemand vielleicht eine Tip, wie man es korrigieren könnte? Das hat mir vor einiger Zeit schon einmal viele Nerven gekostet, weil xl2000 mit dem Kalender wohl grössere Schwierigkeiten zu haben scheint, oder aber ich bin zu doof.

Gruss,
Martin