Private Sub Länge_KeyDown(sender As Object, e As  _
      System.Windows.Forms.KeyEventArgs) Handles Länge.KeyDown
 
        Dim number, length As Decimal
        Dim cf As List(Of Label)
 
        If e.KeyCode = Keys.Enter Then
            If Not Decimal.TryParse(txtInput.Text, number) Then
                MsgBox("Keine gültige Zahl") : Exit Sub
            End If
 
            If Not Decimal.TryParse(Länge.Text, length) _
                OrElse length <= 0 Then
                MsgBox("Keine gültige Länge") : Exit Sub
            End If
 
            'Zuweisung der Referenz der benötigten LabelListe  
            If length > 200 Then
                cf = classfreq1
            Else
                cf = classfreq
            End If
 
            number = Math.Round(number, 2)
            If number <= -1.2 Then
                cf(0).Text = (CInt(cf(0).Text) + 1).ToString
            ElseIf number > 1.2 Then
                cf(9).Text = (CInt(cf(9).Text) + 1).ToString
            Else
                For i As Integer = 1 To 8
                    If number <= class_ug + class_width * i Then
                        cf(i).Text = _
                          (CInt(cf(i).Text) + 1).ToString
                        Exit For
                    End If
                Next i
            End If
        End If
    End Sub