Kalenderelement Today

Ich habe in einer größeren UserForm als Informationselement ein Kalenderelement eingefügt. Damit es mir immer das aktuelle Datum anzeigt habe ich folgende Zeilen in UserForm Initiale eingefügt:
Private Sub UserForm_Initialize()
Calendar1.Today
Calendar1.FirstDay = 2
End Sub
FirstDay = 2 sollte eigentlich dazu dienen das der Montag als erster Tag der Woche angezeigt wird, das passiert aber nur wenn ich die eigenschaft Today deaktiviere. Egal ob per Makro oder in der Eigenschaftsbox eingestellt, wenn ich das aktuelle Datum als Voreinstellung haben will wird immer der Sonntag als erster Wochentag angezeigt.
Ist das ein Bug oder übersehe ich da was?
Wäre nett wenn jemand eine Antwort wüsste.
Gruß Dieter