Estructuras de Control - Select Case (Switch)

el

Select ... Case (Switch)

En muchas ocasiones nos es necesario evaluar si una variable tiene un valor entre una serie de valores predeterminados. Tenemos varias alternativas como podría ser evaluar el valor de la variable con ifs anidados, pero es mucho más interesante realizarlo con un select case

Sintaxis

 Select Case nombre_variable
       Case "valor 1"
              Sentencia 1
              . . .
              . . .
              Sentencia n
       Case "valor 2"
              Sentencia 1
              . . .
              . . .
              Sentencia n
     
       Case "valor n"
              Sentencia 1
              . . .
              . . .
              Sentencia n
End Select

Ejemplo

Dim varNum
varNum = 1

Select Case varNum
    Case 1
        Msgbox "uno"
    Case 2
        Msgbox "dos"
    Case 3
        Msgbox "cinco"
    Case Else
        Msgbox "error, opción no valida"
   End Select