Multi-Dimensional concatif coding

Okay I guess I have been able to achieve it.
Next time, be sure that you provide a sample workbook so that we don't have to create it ourselves.

Here is the revised JoinC code, I have revised it in the post2 as well.

Function JoinC(ByRef x As Variant, ByRef Delim As String) As String
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '           Developed by Vikas Gautam                               '
    '         Forum Expert at ExcelForum.Com                            '
    'For Concatenating Arrays or Ranges having One Row and Many Columns '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    dLen = Len(Delim)
    With Application
        SourceArray = .Transpose(.Transpose(x))
        Delim2 = Delim & Delim
        Temp = Replace(Join(SourceArray, Delim), Delim2, Delim)
        
        Do While InStr(1, Temp, Delim2, 1) > 0
            Temp = Replace(Temp, Delim2, Delim)
        Loop
    End With
    
    If Left(Temp, dLen) = Delim Then Temp = Mid(Temp, dLen + 1, Len(Temp))
    If Right(Temp, dLen) = Delim Then Temp = Left(Temp, Len(Temp) - dLen)
    JoinC = Temp

End Function

Check the attached file:-