Dim str As String = "1,2,3,4,5"Dim ary() As String = str.Split(",")
str = String.Join(",", ary)msgbox(str)