Condicionais Select Case e IF... Then... Else

 As construções condicionais servem para testar certas condições e executar determinadas ações quando essas condições são atendidas.
Existem basicamente 2 construções que nos permite realizar esses testes, o Select Case e o If...Then...Else

A função das duas construções é a mesma, porém para certos casos uma de aplica melhor que a outra.

Nos exemplos abaixo, para os mesmos testes, vou lista as duas formas de escrever o código.

1) Realizar a verificação da Variável "a" do tipo String, nos procedimentos Select Case e If...then...else.

Dim a As String
a = InputBox("Informe um Valor")

Select Case a
    Case "Pedro", "João", "Marcia", "Flavia"
        MsgBox "Vc Escolheu alguem da familia"
    Case Else
        MsgBox "Não Pertence a familia"
End Select


If a = "Pedro" Or a = "João" Or a = "Marcia" Or a = "Flavia" Then
    MsgBox "Vc Escolheu alguem da familia"
Else
    MsgBox "Não Pertence a familia"
End If


2) Realizar o cálculo MOD para retornar o produto de uma divisão. Caso o  produto da divisão de um número seja 1, então ele é um número ímpar, caso contrário um número par.

Dim a As Integer
a = InputBox("Informe um Valor")


Select Case a Mod 2
Case 0
    MsgBox "Número Par"
Case Else
    MsgBox "Número Ímpar"
End Select


If a Mod 2 = 0 Then
     MsgBox "Número Par"
Else
    MsgBox "Número Ímpar"
End If



3) Verificação simples para testar o valor da variável

Dim a As Integer
a = InputBox("Informe um Valor")

Select Case a
Case Is > 5
    MsgBox "Número maior ou igual que 5"
Case Else
    MsgBox "Número menor que 5"
End Select


If a > 5 Then
     MsgBox "Número maior ou igual que 5"
Else
    MsgBox "Número menor que 5"
End If


4) selecionar casos que estejam em um determinado intervaldo. Ex.: de 0 a 5, de 6 a 9

Dim a As Integer
a = InputBox("Informe um Valor de 0 a 10")

Select Case a
Case 0 To 5
    MsgBox "Ruim"
Case 6 To 9
    MsgBox "Bom"
Case 10
    MsgBox "Excelente"
Case Else
    MsgBox "Valor informado fora do intervalo"
End Select

If a >= 0 And a <= 5 Then
     MsgBox "ruim"
ElseIf a >= 6 And a <= 9 Then
    MsgBox "Bom"
ElseIf a = 10 Then
    MsgBox "Excelente"
Else
    MsgBox "Valor informado fora do intervalo"
End If