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