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

Dim länger As String = TextBox3.Text
Dim länge As Integer = Integer.Parse(länger)

Dim länge As Object = TextBox3.Text

Dim länge As Integer = TextBox3.Text.Lenght

EALA FREYA FRESENA

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim laenge As String = TextBox3.Text.ToString
 
        Dim Wert As Integer = Nothing
 
        If Not Integer.TryParse(laenge, Wert) Then
            MessageBox.Show("Es wurde kein sinnvoller Wert eingegeben!")
            TextBox3.Focus
            Exit Sub
        End If
 
        Select Case Wert
            Case Is < 300
                MessageBox.Show("Geben Sie bitte einen Wert >=300 ein!")
            Case Is >= 300, Is <= 2500
                TextBox4.Focus()
            Case Is > 2500
                MessageBox.Show("Geben Sie bitte einen Wert <=2500 ein!")
        End Select
 
    End Sub
 
    Private Sub TextBox3_KeyPress(sender As Object, e As _
      System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        Select Case Asc(e.KeyChar)
            Case 48 To 57, 32
 
            Case Else
                e.Handled = True
        End Select
    End Sub
 
End Class

EALA FREYA FRESENA