@IsMember in LotusScript

There is a way to implement @IsMember in LotusScript. Here is the function to get the same @IsMember result and you have to pass the String , StringList to the function.

Function IsMember(Value As String, valueList As Variant) As Boolean
On Error GoTo errorHandler
ForAll tempVal In valueList 
If tempVal = Value Then
IsMember = True
Exit function
End If
End ForAll
IsMember = False
Exit function
errorHandler:
IsMember = False
MsgBox |Error:| + Error() + | Error Line:| + CStr(Erl())
Exit function
End Function