Select Case pada Visual Basic

Struktur penulisan kontrol select case

Select Case (pilihan)
Case (pilihan 1)
     (pernyataan 1)
Case (pilihan 2)
     (pernyataan 2)
Case (pilihan 3)
     (pernyataan 3)
Case Else
     (pernyataan 4)
End Select

Private Sub Command1_Click()
Dim no_hari As Integer
Dim hari As String
no_hari = Text1.Text
Select Case no_hari
Case 1
     hari = "Minggu"
Case 2
     hari = "Senin"
Case 3
     hari = "Selasa"
Case 4
     hari = "Rabu"
Case 5
     hari = "Kamis"
Case 6
     hari = "Jum'at"
Case 7
     hari = "Sabtu"
Case Else
MsgBox " saat ini Jumlah hari hanya ada 7 om !", vbOKOnly, "Nama-Nama Hari"
End Select
   Text2.Text = hari
End Sub