Запретить ввод даты в MaskedTextBox1 больше текущей даты - Visual Basic .NET

Формулировка задачи:

На форме MaskedTextBox1 с маской под короткую дату, то есть __.__.____ Как запретить ввод в это поле даты, больше текущей даты? заранее спасибо за помощь!

Решение задачи: «Запретить ввод даты в MaskedTextBox1 больше текущей даты»

textual
                            Листинг программы 
                        

                            Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
'…
    MsgBox(MaskedTextBox1.Text)
'…
End Sub
Private Sub MaskedTextBox1_TypeValidationCompleted(sender As System.Object, e As System.Windows.Forms.TypeValidationEventArgs) Handles MaskedTextBox1.TypeValidationCompleted
    If (Not e.IsValidInput) Then
        MsgBox("Данные не соответствуют формату!")
    Else
        Dim UserDate As DateTime = CDate(e.ReturnValue)
        If (UserDate > DateTime.Now) Then
            MsgBox("Введенная дата не м.б. больше текущей даты!")
            e.Cancel = True
        End If
    End If
End Sub
                        