Visual Basic - Sentencia CASE

Como se haria para que funcione esto?

select case rango
Case rango < 0
MsgBox("Es menor que cero")
Case rango >= 0 And rango< 100
MsgBox("De 0 a 100")
Case rango >= 100 And rango<= 1000
MsgBox("De 100 a 1000")
Case rango> 1000
MsgBox("Mayor de 1000")

Con solo una me funciona, pero con el AND no.

Gracias

Hola,
si rango es tu variable, no se menciona dentro de cada CASE, se reemplaza por "Is" para una comparacion.

- Se cumple un caso porque no se cumpliero los casos anteriores

Private Sub Command1_Click()
dim rango as integer
rango = Val(Text1.Text) %0

Hola,
si rango es tu variable, no se menciona dentro de cada CASE, se reemplaza por "Is" para una comparacion.

- Se cumple un caso porque no se cumpliero los casos anteriores

Private Sub Command1_Click()
dim rango as integer
rango = Val(Text1.Text)
Select Case rango
Case Is < 0
MsgBox ("Es menor que cero")
Case Is <= 100
MsgBox ("De 0 a 100")
Case Is <= 1000 ' no es necesario AND, porque para el caso anterior rango>100
MsgBox ("De 100 a 1000")
Case Is > 1000
MsgBox ("Mayor de 1000")
End Select
End Sub

Suerte.

Otra forma de escribir lo mismo

Select Case Rango
Case Is < 0: MsgBox ("Es menor que cero")
Case 0 To 100: MsgBox ("De 0 a 100")
Case 100 To 1000: MsgBox ("De 100 a 1000")
Case Is > 1000: MsgBox ("Mayor de 1000")
End Select

Otra forma de escribir lo mismo

Select Case Rango
Case Is < 0: MsgBox ("Es menor que cero")
Case 0 To 100: MsgBox ("De 0 a 100")
Case 100 To 1000: MsgBox ("De 100 a 1000")
Case Is > 1000: MsgBox ("Mayor de 1000")
End Select

Gracias. Esta no me vale porque el 100 lo meteria en el caso de 0 a 100 y yo quiero que lo meta en el siguiente.
La solucion seria poner 0 to 99, pero y si son double en vez de integer?

Gracias. Asi si que funciona como quiero.

Sabrias si se pueden hacer comparaciones con el or en un case? o habria que utilizar la sentencia if.

Para que se cumpla 2 o mas condiciones en un case solo se usa la coma

case Is=valor1, Is =valor2
'sentencias....

Gracias. Esto equivaldria al OR. Perfecto