¿Cuál es el formato de declaración condicional de caso seleccionado en VBS?

dim a

a=inputbox("completa lo que quieras")

a=int(a)

selecciona mayúsculas y minúsculas true 'aquí lo cambié y probé

caso a>5 y a<10

msgbox("OK")

caso a>10 y a< 15

msgbox("General")

caso a>15 y un<20

msgbox("OK")

caso a>20 y a<25

msgbox("Invincible")

caso más

msgbox("Dreaming")

fin seleccionar