Private Sub TextBox2_Enter()
Me.TextBox2 = ""
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox2 = "DD.MM.GGGG"
End Sub

Private Sub UserForm_Activate()
Me.TextBox2 = "DD.MM.GGGG"
End Sub