¿A que te refieres con separar caracteres?
Casa= C, a, s, a
Esta es una prueba=Esta, es, una, prueba
Para esto Agrega dos Textbox y un commandbuttom
Para separar palabras seria usar la función Split
Private Sub Command1_Click()
Dim Var() as String
Var = Split(Text1.Text)
For i = 0 To UBound(Var())
Text2 = Text2 & Var(i) & vbNewLine
Next
End Sub
Para separar letras seria:
Private Sub Command1_Click()
Dim Var() As String
'Sin contar los espacios en blanco, para contar los espacios en blanco borra la linea:
'--------Text1 = Replace(Text1.Text, " ", "")-------------
Text1 = Replace(Text1.Text, " ", "")
ReDim Var(1 To Len(Text1.Text))
For i = 1 To Len(Text1.Text)
Var(i) = Mid(Text1, i, 1)
Next
For i = 1 To Len(Text1.Text)
Var(i) = Mid(Text1, i, 1)
Next
End Sub
Suerte