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

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