[Excel] Concatenate cells with a delimiting character between cells

[Excel] CAT

Function CAT(cell_range As range, delim As String) As String
    Dim CAT_iter As String
    Dim iter As Integer
    
    iter = 1
    For Each cell In cell_range
        If iter = cell_range.Count Then
            CAT_iter = CAT_iter & cell.Value
        Else
            CAT_iter = CAT_iter & cell.Value & delim
        End If
        iter = iter + 1
    Next cell
    CAT = CAT_iter
End Function