1. Function isexist(value, arry) As Boolean
    2. Dim i As Integer
    3. For i = 1 To UBound(arry)
    4. If value = arry(i) Then
    5. isexist = True
    6. Exit Function
    7. End If
    8. Next
    9. isexist = False
    10. End Function