Estrutura de decisão - Select Case

Select Case <expressão>

Case <lista_de_valores_1>

   <bloco_de_instruções_1>

[Case <lista_de_valores_2>

   <bloco_de_instruções_2>]

...

[Case Else

   <bloco_de_instruções_N>]

End Select

Por Exemplo:

Select Case i

            Case 1, 3, 5, 7, 8, 10, 12

                MsgBox("Esse mês tem 31 dias", vbOKOnly, "ficha01")

            Case 2

                MsgBox("Ano Bissexto", vbQuestion + vbYesNo, "ficha01")

                If   i = vbYes Then

                    MsgBox("Esse mês tem 29 dias", vbOKOnly, "ficha01")

                Else

                    MsgBox("Esse mês tem 28 dias", vbOKOnly, "ficha01")

                End If

            Case Else

                MsgBox("Esse mês tem 30 dias", vbOKOnly, "ficha01")

        End Select