Start your procedure with quality code.

Using Code VB the code below is created. The following things were done:

Click this Start demo screencast to see how easy it is to do this with Code VB

Function IsMember(strName As StringAs Boolean
'Purpose    :
'Author     :
'Description:
'Date       :

    On Error GoTo HandleError
    IsMember = False
    
HandleExit:
    Exit Function
HandleError:
    ErrorHandle Err, Erl()
    Resume HandleExit
End Function