По номеру дня недели определить, какой день был вчера, будет завтра и сколько дней до воскресенья - VB

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

visual basic Составить программу для решения задачи, используя оператор выбора Select-Case. Предусмотреть проверку данных на корректность. Составить программу, которая по номеру дня недели сообщает, какой день был вчера, будет завтра и сколько дней до воскресенья.

Решение задачи: «По номеру дня недели определить, какой день был вчера, будет завтра и сколько дней до воскресенья»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim i&
For i = 1 To 7
    List1.AddItem i
Next
List1.ListIndex = 3
End Sub
 
Private Sub List1_Click()
Label1(0) = DayByNumber(1 + (List1 + 5) Mod 7)
Label1(1) = DayByNumber(1 + List1 Mod 7)
Label1(2) = 7 - List1
End Sub
 
Function DayByNumber(n As Long) As String
Select Case n
Case 1: DayByNumber = "Поневольник"
Case 2: DayByNumber = "Вздорник"
Case 3: DayByNumber = "Череда"
Case 4: DayByNumber = "Чертверх"
Case 5: DayByNumber = "Питница"
Case 6: DayByNumber = "Своббота"
Case 7: DayByNumber = "Раскисенье"
Case Else   'проверка данных на ПОЛИТкорректность
    MsgBox "Неверный номер дня недели", vbCritical
    End
End Select
End Function
                        