Option Explicit
Function tt(Text As String, Rng As Range) As String
Dim arr: arr = Application.WorksheetFunction.Transpose(Rng.Value)
Dim Matches As Object
Dim I As Long
Dim arr1()
With CreateObject("VBScript.Regexp")
    .Global = True
    .IgnoreCase = True
    .Pattern = "(" & Join(arr, "|") & ")"
    If .test(Text) Then
        Set Matches = .Execute(Text)
        With Matches
            ReDim arr1(0 To .Count - 1)
            For I = 0 To .Count - 1
                arr1(I) = .Item(I)
            Next
        End With
        tt = Join(arr1, ",")
    End If
End With
End Function

.Pattern = "\b(?:" & Join(arr, "|") & ")\b"