Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Specify a range in select case statement

Function Fare(Age As Integer) As Variant   Select Case Age     Case 0 To 3, Is > 65       Fare = 0     Case 4 To 15       Fare = 10     Case 16 To 65       Fare = 20     Case Else       Fare = CVErr(xlErrNA)   End Select End Function Sub test()     MsgBox CStr(Fare(32)) End Sub