IsInArray to find exact match

You could also do:

Public Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    
    Dim arr2
    
    arr2 = Split(Chr(1) & Join(arr, Chr(1) & Chr(2) & Chr(1)) & Chr(1), Chr(2))
    IsInArray = (UBound(Filter(arr2, Chr(1) & stringToBeFound & Chr(1))) > -1)
    
End Function

Though I'd loop, though not with a For Each, you're better looping through arrays by index