Задать условия для Combo - VB

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

Ребята подскажите как задать условия для комбо, вопрос в том, что-бы в комбо при выборе значение из списка определялся тем что, если сегодня день недели суббота или воскресения тогда msgbox, поясню с другого варианта есть комбо, в нем находится список: 9:00-18:00 9:00-16:00 допустим сегодня суббота или воскресение, а в комбо выбранно 9:00-18:00 тогда и выводи сообщение

Решение задачи: «Задать условия для Combo»

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

                            Private Sub Combo1_Change()
        If Weekday(Date, 2) > 5 And Combo1.Text = "9:00-18:00" Then MsgBox "111111"
End Sub
                        