できた

Dim result As New List(Of String)
Dim hoge As String = "aaa,bbb,ccc"
For Each h As String In hoge.Split(",")
If result.Count > 0 Then
result.Add(",")
End If
result.Add(h)
Next