Sub JoinTest()
Dim ar(2) As String
ar(0) = "aa"
ar(1) = "bbb"
ar(2) = "cccc"
Dim s As String
s = Join(ar, ",")
Debug.Print s
End Sub
Sub JoinTest()
Dim ar(2) As String
ar(0) = "aa"
ar(1) = "bbb"
ar(2) = "cccc"
Dim s As String
s = Join(ar, ",")
Debug.Print s
End Sub