Private Sub BremsungenA8_TextChanged(sender As Object, e As EventArgs) _
      Handles BremsungenA8.TextChanged
        If Not BremsungenA8.Text = "" And Not BremsungenA8.Text = "+" And Not _
        BremsungenA8.Text = "-" Then
            If Not IsNumeric(BremsungenA8.Text) Then
                MessageBox.Show("Bitte nur Zahlen eingeben.")
                BremsungenA8.Text = 0
                Exit Sub
            ElseIf Int(BremsungenA8.Text) < 0 Then
                MessageBox.Show("Bitte keine negativen Zahlen eingeben.")
                BremsungenA8.Text = 0
            End If
        End If
    End Sub