Private Sub txtTimerwert_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles txtTimerwert.TextChanged
        If IsNumeric(txtTimerwert.Text) AndAlso txtTimerwert.Text.Contains(".") _
        = False _
            AndAlso txtTimerwert.Text.Contains(",") = False Then
            txtTimerwert.Text = txtTimerwert.Text
        Else
            MsgBox("Es sind nur Ziffern zwischen 0 und 9 erlaubt.", _
              MsgBoxStyle.Critical, "Eingabefehler")
            txtTimerwert.Text = 1000
            Timer1.Interval = 1000
        End If
    End Sub
 
    Private Sub txtTimerwert_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles txtTimerwert.KeyDown
        If e.KeyCode = Keys.Enter Then
            If txtTimerwert.Text < 500 Then
                MsgBox("Das Zeitintervall muss größer als 500ms sein!", _
                  MsgBoxStyle.Critical, "Eingabefehler")
                Timer1.Interval = 1000
                txtTimerwert.Text = 1000
            ElseIf txtTimerwert.Text > 10000 Then
                MsgBox("Das Zeitintervall muss kleiner als 10000 ms sein!", _
                  MsgBoxStyle.Critical, "Eingabefehler")
                Timer1.Interval = 1000
                txtTimerwert.Text = 1000
            End If
        End If
    End Sub