Исправить код программы - VB

Формулировка задачи:

Задание: Дано целое число k (1<=k<=365). Определить каким днем недели (понедельником, ..., воскресеньем) является k - ый день не високосного года, в котором 1 января - понедельник. У меня код программы получился такой. После ввода k даже равного 7 результат "Неверный ввод". ПОМОГИТЕ ПОЖАЛУЙСТА НАЙТИ ОШИБКУ В КОДЕ. Visual basic

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim k, n As Integer
k = InputBox("Введите день года от 1 до 365:")
If k >= 1 And k <= 365 Then
n = k Mod 7
Select Case n
Case "1"
MsgBox ("понедельник")
Case "2"
MsgBox ("вторник")
Case "3"
MsgBox ("среда")
Case "4"
MsgBox ("четверг")
Case "5"
MsgBox ("пятница")
Case "6"
MsgBox ("суббота")
Case "7"
MsgBox ("воскресенье")
Case Else
MsgBox ("Неверный ввод")
End Select
End If
End
End Sub

Решение задачи: «Исправить код программы»

textual
                            Листинг программы 
                        
Private Sub Command1_Click()
    Dim k As Integer
    Do: k = Val(InputBox("Введите день года от 1 до 365:", , 200)): Loop While k = 0
    MsgBox IIf(CStr(k >= 1 And k <= 365), WeekdayName((k Mod 7)), "Неверный ввод")
End Sub