Visual Basic para Aplicaciones - Dias de la semana(aparentemente sencillo)

Hola, escribo ésta nota para ver si pueden decirme qué es lo que falla en un programa tan sumamente sencillo como es éste:

Option Explicit
Dim dia, a As Integer
Private Sub Form_Load()
a = 0
dia = InputBox("Introduce el día de la semana", "Nombre del día")
GoTo Verificación

Verificación:
a = a + 1
If dia Mod a Then GoTo Ejecución Else If a >= 8 Then Print ("El número no es entero o es mayor que 7") Else GoTo Verificación
end:

Ejecución:
Select Case dia
Case 1
Print "Lunes"
Case 2
Print "Martes"
Case 3
Print "Miércoles"
Case 4
Print "Jueves"
Case 5
Print "Viernes"
Case 6
Print "Sábado"
Case 7
Print "Domingo"
Case Else
Print "El número no es válido"
End Select
End Sub



Se supone que el programa trabajará en Verificaciónhasta que ql resto de la división de día entre a sea 0 o hasta que a sea mayoe que 7, lo que quiere decir que el número introducido no es entero.
Pero no se por qué pasa completamente y cada vez que meto un número que no sea del 1 al 7 me sale el último print---->El número no es válido
aunque meta el número 50, que debería salir "El número no es entero o es mayor de 7"

Si alguien encuentra la respuesta, por favor, posteen.

Gracias por su atención.

no sé cuál es el objetivo del código, pero creo que la verificación está de más
con el select case es suficiente para saber si el nº ingresado es o no correcto
y en caso de no serlo, podrías volver con un Goto a pedir nuevamente otro nº

Saludos desde Baires, JuanC