[VB.NET] Select Case, non mi funziona

[OrcaAssassina]

Ho un risultato in una textbox, in base al suo lavoro mi deve scrivere un testo in un label

se il valore è più piccolo di 16 deve scrivere "Sottopeso grave"
se è compreso tra 16 e 16,99 deve scrivere "Sottopeso normale"
se è compreso tra 17 e 18,49 deve scrivere "Sottopeso lieve"
se è compreso tra 15,50 e 24,99 deve scrivere "Normopeso"
se è compreso tra 25 e 29,99 deve scrivere "Sovrappeso"
se è compreso tra 30 e 34,99 deve scrivere "Obesità lieve"
se è compreso tra 35 e 39,99 deve scrivere "Obesità media"
se è maggiore di 40 deve scrivere "Obesità grave"

Io ho scritto questo ma non mi funziona, dove sbaglio????

Ciao e grazieeeeee

Select Case txtComposizione.Text
Case Is < "16"
lblRisultatoComposizione.Text = "Sottopeso grave"
Case Is >= "16" And txtComposizione.Text <= "16,99"
lblRisultatoComposizione.Text = "Sottopeso normale"
Case Is >= "17" And txtComposizione.Text <= "18,49"
lblRisultatoComposizione.Text = "Sottopeso lieve"
Case Is >= "18,50" And txtComposizione.Text <= "24,99"
lblRisultatoComposizione.Text = "Normopeso"
Case Is >= "25" And txtComposizione.Text <= "29,99"
lblRisultatoComposizione.Text = "Sovrappeso"
Case Is >= "30" And txtComposizione.Text <= "34,99"
lblRisultatoComposizione.Text = "Obesità lieve"
Case Is >= "35" And txtComposizione.Text <= "39,99"
lblRisultatoComposizione.Text = "Obesità media"
Case Is >= "40"
lblRisultatoComposizione.Text = "Obesità grave"
End Select

[simoneart]

la prima cosa che mi viene in mente è:
perchè usi gli apici per i valori da confrontare?
sono valori numerici, leva gli apici

Select Case txtComposizione.Text
Case Is < 16
....

[OrcaAssassina]

Originariamente inviato da simoneart

la prima cosa che mi viene in mente è:
perchè usi gli apici per i valori da confrontare?
sono valori numerici, leva gli apici

Select Case txtComposizione.Text
Case Is < 16
....

Ok risolto

Ciao e grazieeeeee