Visual Basic - Problemas en el cálculo con decimales

Buenos dias, soy nuevo en VB y tengo una duda con decimales.

Tengo la configuracion regional de cifras como 123.456,78, es decir los decimales despues de la coma.

Luego en el código voy discrminando valores en función del contenido de un textBox, asi

Select case Txt1.Text

Case 16.5 to 39 (Lo tengo con punto ".", porqe con com "," tampoco me resulta bien

TxtCifra.Text="16,5" (este si con com ",")
.
.
.
Case 165.9 to 175.8
TxtCifra.Text="175,8"
.

Que es lo que me ocurre:

Que si la cifra esta entre 16,5 y 39 si me indica el TxtCifra = 16,5 pero tambien cuando por ejemplo:

Txt1.Text=168,7 ----> TxtCifra=16,5 en vez de 175.8

Alguien me podria ayudar???
Muchas gracias

Creo que deberías cambiar la configuración de tu PC

Creo que el problema es que considera el contenido del Txt1 como String y no como un Número.

Por tanto prueba con:

Select case cdbl(txt1.text)

case ....

En Select

Saludos,
JSola

Muchas gracias, con tu ayuda he solucionado el problema.

Tambien me he dado cuenta que declare las variables como double en vez de single...