2 dimensional join function

[westconn1]

this is to simply join a 2 dimensional array with 2 delimiters
accepts any type of array, returns a string

Function join2(myarr, chr1 As String, chr2 As String) As String
Dim mystr As String, i As Integer, j As Integer
mystr = ""
For i = LBound(myarr, 1) To UBound(myarr, 1)
    For j = LBound(myarr, 2) To UBound(myarr, 2) - 1
        mystr = mystr & CStr(myarr(i, j)) & chr1
    Next
    mystr = mystr & CStr(myarr(i, j)) & chr2
Next
join2 = mystr
End Function

call like

Debug.Print join2(myarr, vbTab, vbNewLine)

[sat19]

Thank youwestconn1

[sat19]

My apologies, posted my code on wrong thread