Visual Basic - Separar

Hola amigos, estoy trabajando en un ejercisio en el que tengo un txtcontenido y un boton de comando, la idea que en el txtcontenido se puede incluir una palabra y luego al hacer click en el boton separe cada letra con una coma, este es el codigo que tengo:

Private Sub Command1_Click()
Dim I As Integer 'Declaro la variable control para el bucle.
Dim C As String 'Variable para almacenar cada carácter leído de la caja.

For I = 1 To Len(txtcontenido.Text) ' Inicio el bucle del 1 hasta la longitud de la caja.

C = Mid(txtcontenido.Text, I, 1) 'Se lee carácter por carácter.

'Seleccionamos uno por uno los caracteres de la caja.
txtcontenido.SelStart = I - 1
txtcontenido.SelLength = 1

'Verificamos si el caracter seleccionado es cualkier letra
If txtcontenido.SelText = Chr() Then
txtcontenido.SelText = "," ' Si es un espacio se sustituye por una coma.
End If

Next I 'Se repite el bucle.

End Sub

¿Y cual es el problema?

El problema es que eso es imposible que funcione, ya que la función Chr() necesita del parámetro obligatorio ASCII y en ningún momento inserta los espacios entre las letras de la palabra.
La cosa es tan sencilla como hacer esto:

Dim I As Integer
Dim C As String

For I = 1 To Len(txtcontenido.Text)
If I < Len(txtcontenido.Text) And Mid(txtcontenido.Text, I, 1) <> " " And Mid(txtcontenido.Text, I + 1, 1) <> " " Then
C = C & Mid(txtcontenido.Text, I, 1) & ","
Else
C = C & Mid(txtcontenido.Text, I, 1)
End If
Next

txtcontenido.Text = C

Saludos.