VBSCRIPT code to find day by using select case

Option explicit
Dim dn
dn=inputbox("enter day number")
Select Case dn
    Case 1
msgbox("sunday")
Case 2
msgbox("monday")
Case 3
msgbox("tuesday")
Case 4
msgbox("wednsday")
Case 5
msgebox("thursday")
Case 6
msgbox("friday")
Case 7
msgbox("saterday")
Case else
msgbox("enter correctday")
 End Select