Código en VBA usando el Método Case

Código escrito en Visual Basic para Aplicaciones, en el cual se usa el metodo Do y Case, así como también muestra la fecha actual en los cuadros de diálogo.

Private Sub metodocase()
'Mostrar los días de la semana a partir del número ingresado
'Declaro la variable a de tipo entero
Dim a As Integer
'Solicitar al usuario que ingrese un numero >0 y <8
'El Do hace obligatorio que el número ingresado este entre el rango >0 y <8
Do
a = InputBox("Ingrese un numero >0 y < 8", "Hecho por Joél Rodríguez")
Loop Until a > 0 And a < 8
'Loop Until es la condición para que no permita pasar si no se cumple

'Select Case ó traducido En caso de, significa que va a tomar una desición dependiendo si se cumple la condicion
Select Case a
Case Is = 1
MsgBox ("El día seleccionado fué Lunes"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 2
MsgBox ("El día seleccionado fué Martes"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 3
MsgBox ("El día seleccionado fué Miercoles"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 4
MsgBox ("El día seleccionado fué Juéves"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 5
MsgBox ("El día seleccionado fué  Viernes"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 6
MsgBox ("El día seleccionado fué Sábado"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 7
MsgBox ("El día seleccionado fué Domingo"), vbInformation, "La fecha actual es: " & (Date)

'Case Else se utiliza cuando no se cumple ninguna condición
Case Else
MsgBox ("El número ingresado no esta entre 1 y 7"), vbCritical, "Hecho por Joél Rodríguez"

'End Select finaliza el metodo Case
End Select

End Sub

Código escrito por:  Joél Rodríguez