Fehlermeldung

Private Sub UserForm_Activate()
With UF_Kalender
.Height = 340          ' Application.Height
.Width = 290           ' Application.Width
' 0: Manuell;
' 1: Fenstermitte
' 2: Bildschirmmitte
' 3: Windows-Standard
' .StartUpPosition = 0 'links oben
.Top = 90
.Left = 340
End With
With Calendar1
' 0: Manuell;
' 1: Fenstermitte
' 2: Bildschirmmitte
' 3: Windows-Standard
'  .StartUpPosition = 0 'links oben
.Top = 10
.Left = 20
.Height = 160
.Width = 220
End With
Me.CommandButton17.Top = 180
Me.CommandButton17.Left = 65
Calendar1.Value = Date
UF_Kunde.TextBox16.Text = (Calendar1.Value)
End Sub