Case Keys.Down, Keys.OemMinus
                'Text validieren (schauen, ob Text einem gültigen Datum 
                ' entspricht)
                Try
                    Dim dTest As Date = CDate(sender.text)
                Catch ex As Exception
                    Exit Select
                End Try
                'Ermitteln, auf welcher Position die Einfügemarke ist (Tag, 
                ' Monat, Jahr)
                Dim iPos As Integer = txtdate.SelectionStart
                'Entsprechendes Intervall erhöhen
                If iPos = 0 Then
                    txtdate.Text = DateAdd(DateInterval.Day, -1, CDate( _
                      txtdate.Text))
                ElseIf iPos > 0 And iPos < 3 Then
                    txtdate.Text = DateAdd(DateInterval.Day, -1, CDate( _
                      txtdate.Text))
                ElseIf iPos < 6 Then
                    txtdate.Text = DateAdd(DateInterval.Month, -1, CDate( _
                      txtdate.Text))
                ElseIf iPos >= 6 Then
                    txtdate.Text = DateAdd(DateInterval.Year, -1, CDate( _
                      txtdate.Text))
                End If
                'Dafür sorgen, dass Einfügemarke an ursprünglicher Position 
                ' bleibt.
                Try
                    txtdate.SelectionStart = iPos - 1
                Catch
                    Exit Select
                End Try