Function TextJoin2(delimiter As String, ignore_empty As Boolean, criteria As String, rng As Range, ParamArray args() As Variant) As String
    Dim result As String
    Dim i As Long
    Dim item As Variant
    Dim cell As Range

    result = ""

    For Each cell In rng
        If Not (ignore_empty And cell.value = "") And cell.value Like criteria Then
            If result <> "" Then result = result & delimiter
            result = result & cell.value
        End If
    Next cell

    For i = LBound(args) To UBound(args)
        If IsArray(args(i)) Then
            For Each item In args(i)
                If Not (ignore_empty And item = "") And item Like criteria Then
                    If result <> "" Then result = result & delimiter
                    result = result & item
                End If
            Next item
        Else
            If Not (ignore_empty And args(i) = "") And args(i) Like criteria Then
                If result <> "" Then result = result & delimiter
                result = result & args(i)
            End If
        End If
    Next i
    TextJoin2 = result
End Function