Нужно доработать программу - VBA

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

можете исравить ошибки в коде.задание в скриншоте.

Private Sub calc_Click()
Dim DR As Date
DR = (txtData.Text)
Select Case Month(DR)
Case 1
If Day(DR) <= 6 Then txtZodiak.Text = "Доброе утро"
Case Else
If Day(DR) <= 18 Then txtZodiak.Text = "Добрый День" Else txtZodiak.Text = "Доброй ночи"

End Select
 
End Sub

По введенному пользователем времени (часы : минуты) напечатать приветствие в зави- симости от времени суток: «Доброй ночи» с 0 до 6 часов, «Доброе утро» с 6 до 12 часов, 10«Добрый день» с 12 до 18 часов, «Добрый вечер» с 18 до 24 часов (в VBA и Excel время дня выражается дробным числом от 0 до 1, например, полдень представлен как 0,5, соответственно 18 часов как 0,75).

Решение задачи: «Нужно доработать программу»

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

                            Private Sub calc_Click()
    Dim DR As Date
    DR = (txtData.Text)
    Select Case Hour(DR)
    Case Is < 5: txtZodiak.Text = "Доброй ночи"
    Case Is < 11: txtZodiak.Text = "Добрые утро"
    Case Is < 18: txtZodiak.Text = "Добрый день"
    Case Is < 23: txtZodiak.Text = "Добрый вечер"
    Case Else
        txtZodiak.Text = "Доброй ночи "
    End Select
End Sub
                        