Function QuestionContainsCategory( Question, CatName )
On Error resume next
    dim cats
    cats = format(Question.DefinedCategories(),"a")
    QuestionContainsCategory = ( Find( Split( lcase(cats), "," ), lcase(CText(CatName)) ) >= 0 )
'If Err.Number<>0 Then errorRoutine(IOM)
End Function