Datum in VB-Form

möchte gern das aktuelle Datum in meiner Userform
in der Labelbox sichtbar ist und zwar sobald der Dialog
aufgerufen wird.
Hier meine "Idee":
Private Sub Label1_Click()
Dim Datum1
Datum1 = Format(Date, "YYYY")
End Sub
Gruss Walter