配列内に指定した要素が存在するかどうか調べます。
要素が存在すればTrue、そうでなければFalseを返します。

'--- 配列内に要素が存在するか調べる ---
Private Function Is_Exist_In_Array(ByVal Item As Variant, ByRef TargetArray As Variant)

    Dim i As Long

    For i = LBound(TargetArray) To UBound(TargetArray)
        If TargetArray(i) = Item Then
            Is_Exist_In_Array = True
            Exit Function
        End If
    Next i

    Is_Exist_In_Array = False

End Function