Ejemplo Ciclo CASE

Si más ramas son necesarias, entonces usamos el comando 'Select Case'

Case (Ejemplo):

Select Case dia_actual
Case 1
nombre_del_dia = "Domingo"
Case 2
nombre_del_dia = "Lunes"
...
Case 7
nombre_del_dia = "Sábado"

End Select

La expresión 'End Select' define el final del bloque de casos. Si deseamos que presente un mensaje si se introduce un valor no definido en el bloque de casos, deberemos usar 'Case Else' de la siguiente manera.

...
Case 7
nombre_del_dia = "Sábado"

Case Else
MsgBox "Error en selección, una semana tiene solamente 7 dias"
End Select