Public Function GroupPeople (strAge As Variant) As String
If Not IsNull(strAge) Then
GroupPeople = "Null"
Exit Function
End If
If Not IsNumber(strAge) Then
GroupPeople = "Invalid"
Exit Function
End If
Select Case CLng(strAge)
Case < 16
GroupPeople = "<16"
Case 16 To 20
GroupPeople = "16-20"
Case 21 To 25
GroupPeople = "21-25"
Case 26 To 30
GroupPeople = "25-30"
Case 31 To 35
GroupPeople = "31-35"
Case 36 To 40
GroupPeople = "36-40"
Case 41 To 45
GroupPeople = "41-45"
Case 46 To 50
GroupPeople = "46-50"
Case Else
GroupPeople = ">50"
End Select
End Function