Создать кнопку, при нажатии которой будет определен день недели для введенной даты - VB

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

Я делаю так:

                    Листинг программы
                
 
                        
                          
                    
Private Sub ГЉГ*Г®ГЇГЄГ*_Click()
Dim d As String
d = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г¤Г*ГІГі")
Select Case d
Case 1
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "ГЏГ®Г*ГҐГ¤ГҐГ«ГјГ*ГЁГЄ"
Case 2
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "Г‚ГІГ®Г°Г*ГЁГЄ"
Case 3
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "Г‘Г°ГҐГ¤Г*"
Case 4
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "Г—ГҐГІГўГҐГ°ГЈ"
Case 5
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "ГЏГїГІГ*ГЁГ¶Г*"
Case 6
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "Г‘ГіГЎГЎГ®ГІГ*"
Case 7
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = "Г‚Г®Г±ГЄГ°ГҐГ±ГҐГ*ГјГҐ"
End Select
 
End Sub

Но проблема в том, что когда ввожу дату ничего не происходит, а если ввожу числа от 1 до 7 то выдает соответственно день недели. А вот как сделать наоборот чтоб при введении даты выскакивал день недели не знаю. Помогите плиз!

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

textual
                            Листинг программы 
                        
Me.ГЌГҐГ¤ГҐГ«Гї.Caption = StrConv(WeekdayName(Weekday(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г¤Г*ГІГі"), 2)), 3)