Excel VBA; Merge Values using a delimiter

gistfile1.vb

Function MERGEVALUES(rn As Range, del As String)

Dim cell As Range
Dim result As String
Dim index As Integer
Dim textSplit As Variant
Dim curVal As String

For Each cell In rn
    textSplit = Split(cell.text, del)
    For index = LBound(textSplit) To UBound(textSplit)
        curVal = textSplit(index)
        
        If result = "" Then
            result = curVal
        Else
            If InStr(result, curVal & del) < 1 Then
                result = result & del & curVal
            End If
        End If
    Next
Next

MERGEVALUES = result

End Function