Private Sub lblAusgabe_TextChanged(sender As Object, e As EventArgs) Handles _
  lblAusgabe.TextChanged
        'Label11 größer - 1,2
 
        'Label12 - 1,2 bis - 0,9
        'Label13 - 0,9 bis - 0,6
        'Label14 - 0,6 bis - 0,3
        'Label15 - 0,3 bis + 0,3
 
        If lblAusgabe.Text > "-0,3" And lblAusgabe.Text < "0,3" Then
            Label15.Text = Label15.Text + 1
        End If
        If lblAusgabe.Text > "0,3" And lblAusgabe.Text <= "0,6" Then
            Label16.Text = Label16.Text + 1
        End If
        If lblAusgabe.Text > "0,6" And lblAusgabe.Text <= "0,9" Then
            Label17.Text = Label17.Text + 1
        End If
        If lblAusgabe.Text > "0,9" And lblAusgabe.Text <= "1,2" Then
            Label18.Text = Label18.Text + 1
        End If
        If lblAusgabe.Text > "1,2 Then" Then
            Label19.Text = Label19.Text + 1
        End If
 
    End Sub