la prima cosa che mi è venuta in mente

Dim a As String = "CIAO"
Dim b As String = ""
For i As Integer = 1 To a.Length
b = b + a.Substring(i - 1, 1) + ","
Next
b = b.TrimEnd(","c)

forse esistono altri metodi più efficienti