Dim sString As String

Dim arrString

Dim i As Integer

List1.Clear

List1.AddItem "Orignal string"

sString = "aaaa; bbb; ccccc ; ddd"

List1.AddItem sString

arrString = Split(sString, ";")

List1.AddItem "Split string"

For i = 0 To UBound(arrString)

List1.AddItem Trim(arrString(i))

Next

List1.AddItem "Back joined with " & Chr(34) & "," & Chr(34)

List1.AddItem (Join(arrString, ","))