vb sentencia de selección
Private Sub form_Click()
n = InputBox(";")
Seleccione caso n
Caso 2, 4, 6
x = 20
El caso es <10
x = 30
Caso 10
x = 40
Caso 1 a 20
x = 10
Fin de selección
MsgBox (x)
Fin de sub
Pones el Caso 1 A 20
x = 10
al frente. Si el campo cumple, la siguiente declaración no será ejecutada~