ANStrFind_AndOrAdd

Function ANStrFind_AndOrAdd(ThisItem, ByRef ANStrList, Optional AddItemIfNotFound = 1, Optional Sepa = "|")
    ' Checks if an item was found in list of items and return true if yes, false if not
    '    With option to add the new item to list if not found
    '
    ' Set AddItemIfNotFound to 1 if you want function to add item to list if it was not found
    '        Where the list will be updated, hence "ByRef" is used
    ' Needs CutString3
    Rett = 0
    ItemID = 1
    Do
        Cut3 = CutString3(AnStrList, ItemID, Sepa)
        If Cut3 = "" Or Cut3 = AnStrList Then Exit Do
        If IsNumeric(ThisItem) Then
            If Val(ThisItem) = Val(Cut3) Then
                Rett = 1
                Exit Do
            End If
        Else
            If UCase(Trim(ThisItem)) = UCase(Trim(Cut3)) Then
                Rett = 1
                Exit Do
            End If
        End If
        ItemID = ItemID + 1
    Loop
    If Rett = 0 And AddItemIfNotFound = 1 Then
        If AnStrList > "" Then AnStrList = AnStrList & Sepa
        AnStrList = AnStrList & ThisItem
    End If
    ANStrFind_AndOrAdd = Rett
End Function