Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Specifying Multiple Expressions in a Case Clause

Sub caseClause()     Select Case myMonth         Case "January", "February", "March"             Debug.Print myMonth & ": 1st Qtr."         Case "April", "May", "June"             Debug.Print myMonth & ": 2nd Qtr."         Case "July", "August", "September"             Debug.Print myMonth & ": 3rd Qtr."         Case "October", "November", "December"             Debug.Print myMonth & ": 4th Qtr."     End Select End Sub