Add a string value to an array of strings, only if string value hasn’t already been added to the array.

Function (Stringvar Array Items, Stringvar Value)
    If Array_Contains (Items, Value) = False Then (
        Redim Preserve Items[Ubound(Items)+1];
        Items[Ubound(Items)]:=Value;
    );
    Items;