Write a program to find the days of week through select statement

Private Sub Command1_Click()
week = InputBox("Enter No of day")
Select Case week
Case 1
MsgBox "Monday"
Case 2
MsgBox "Tuesday"
Case 3
MsgBox "Wednesday"
Case 4
MsgBox "Thursday"
Case 5
MsgBox "Friday"
Case 6
MsgBox "Saturday"
Case 7
MsgBox "Sunday"
Case Else
MsgBox "Not a valid day number"
End Select
End Sub


Posted by: Wasim Javed