Private Sub TextBox2_Enter()
    Me.TextBox2 = ""
    End Sub
     
    Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'ovdje stavljamo kod koji je bio prije u Private Sub TextBox2_Change()
    'npr
    If Not IsDate(Me.TextBox3.Value) Then Stop
    
    Me.TextBox2 = "DD.MM.GGGG"  'nakon sto se izvrsi kod ponovo se upisuje u textbox kucicu DD.MM.GGGG
    End Sub
     
    Private Sub UserForm_Activate()
    Me.TextBox2 = "DD.MM.GGGG"
    End Sub