Code:
Select Case (cbMonth.Text)
Case "January"
Dates = "1"
Case "February"
Dates = "2"
Case "March"
Dates = "3"
Case "April"
Dates = "4"
Leave a comment: