Com a estrutura de controle CASE podemos avaliar uma variável e realizar ações dependendo do valor desta. A diferença com o IF consiste em que o número de possibilidades da avaliação desta variável não tem porque ser sim ou não, podendo fazer coisas para um número indeterminado de valores.

A sintaxe é a seguinte:

SELECT CASE (variavel)     CASE (valor1):                    (acao para caso valor1)     CASE (valor3):                    (acao para caso valor2)     CASE (valor3):                    (acao para caso valor3)     CASE ELSE:                    (acao em caso de que nao se cumpra nenhum anterior caso) END SELECT

Funciona assim, primeiro se avalia a variável, se essa variável tiver como valor o valor1 realizamos as ações associadas ao valor1. Se tiver o valor2, executamos as ações relacionadas com este valor3. Assim com quantos valores desejarmos. Por último temos um ELSE para realizar ações no caso de que não tivessem sido nenhum dos valores anteriores. Este ELSE é opcional.

Vejamos com um exemplo esta sentença muito simples. O primeiro que faz é solicitar um número e logo informa o dia da semana com o que corresponde. Se o número não for do um ao sete, informa isso também.

dim dia dia = inputbox ("diz um dia da semana") SELECT CASE dia CASE 1:    msgbox("O dia é SEGUNDA") CASE 2:    msgbox("O dia é TERÇA") CASE 3:    msgbox("O dia é QUARTA") CASE 4:    msgbox("O dia é QUINTA") CASE 5:    msgbox("O dia é SEXTA") CASE 6:    msgbox("O dia é SABADO") CASE 7:    msgbox("O dia é DOMINGO") CASE ELSE:    msgbox("Tem que ser um dia da semana em número, do 1 ao 7") END SELECT

Pode-se ver em funcionamento este script.