Public Function IsStringInArray(vArray As Variant, _
sSearch As String)
Dim bRetVal As Boolean
Dim vValue As Variant

On Error GoTo ProcErr

For Each vValue In vArray
If LCase$(Trim$(vValue)) = LCase$(Trim$(sSearch)) Then
bRetVal = True
GoTo ProcExit
End If
Next

ProcExit:
IsStringInArray = bRetVal
Exit Function

ProcErr:
bRetVal = False
GoTo ProcExit

End Function