Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Const DateFormat As String = "dd/mm/yyyy"
With Me.TextBox1
Cancel = Len(.Value) > 0 And Not IsDate(.Value)
If Not Cancel Then
.Value = Format(.Value, DateFormat)
Else
MsgBox "Please Enter A Valid Date", 48, "Invalid Entry"
.Value = ""
End If
End With
End Sub