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