Function Text_Joined(Delimiter As Variant, IgnoreEmptyCells As Boolean, TextRange As Range) As Variant
Dim textarray()
If IgnoreEmptyCells = True Then
    For i = 1 To TextRange.Cells.Count
        If TextRange.Cells(i) <> "" Then
            k = k + 1
            ReDim Preserve textarray(1 To k)
            textarray(k) = TextRange.Cells(i)
        End If
    Next i
Else
    For i = 1 To TextRange.Cells.Count
        k = k + 1
        ReDim Preserve textarray(1 To k)
        textarray(k) = TextRange.Cells(i)
    Next i
End If

'Now Join the Cells
If Not TypeName(Delimiter) = "Range" Then

    Text_Joined = textarray(1)
        For i = 2 To UBound(textarray) - 1
        Text_Joined = Text_Joined & Delimiter & textarray(i)
        Next i

    If i > 1 Then Text_Joined = Text_Joined & Delimiter & textarray(UBound(textarray))
Else

   Text_Joined = textarray(1)

        For i = 2 To UBound(textarray) - 1
            l = l + 1
            If l = Delimiter.Cells.Count + 1 Then l = 1
        Text_Joined = Text_Joined & Delimiter.Cells(l) & textarray(i)
        Next i

    If i > 1 Then Text_Joined = Text_Joined & Delimiter.Cells(l + i) & textarray(UBound(textarray))

End If

End Function