Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles _
  TextBox3.KeyDown
        Dim länge As Object = TextBox3.Text
 
        If e.KeyCode = Keys.Enter Then
            If länge = "" Then
                MessageBox.Show("Kein Wert vorhanden.", "Fehler")
            Else
                If länge >= 300 And länge <= 2500 Then
                    TextBox4.Focus()
                End If
                If länge > 2500 Then
                    MessageBox.Show("zu lang" & vbCrLf & "Bitte Wert kürzer" & _
                      "2500 eingeben ! ", "Fehler")
                    länge = ""
                    TextBox3.Focus()
                End If
                If länge < 300 Then
                    MessageBox.Show("zu kurz " & vbCrLf & "Bitte Wert länger" & _
                      "300  eingeben ! ", "Fehler")
                    länge = ""
                    TextBox3.Focus()
                End If
 
            End If
 
        End If
    End Sub
 
    Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) _
      Handles TextBox3.KeyPress
        Select Case Asc(e.KeyChar)
            Case 48 To 57, 8 ', 32
                ' Zahlen, Backspace und Space zulassen
            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
        End Select
    End Sub