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