Исправить код программы - 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
                        