Use of Select Case in VB

Dim n

Private Sub Command1_Click()
n = Val(Text1.Text)
Select Case n
Case 1
lbldisplay.Caption = "Monday"
Case 2
lbldisplay.Caption = "Tueday"
Case 3
lbldisplay.Caption = "Wednesday"
Case 4
lbldisplay.Caption = "Thursday"
Case 5
lbldisplay.Caption = "Friday"
Case 6
lbldisplay.Caption = "Saturday"
Case 7
lbldisplay.Caption = "Sunday"
Case Else
lbldisplay.Caption = "Plz enter correct number"

End Select

End Sub