Riguardo al tuo obiettivo iniziale le soluzioni possono essere diverse. Una di queste può essere ad esempio la seguente:
Public Sub Button1_Click()
Dim ss As String[]
Dim j As Byte
' Imponiamo un testo iniziale alla "TextArea":
TextArea1.Text = "Ciao come stai ?"
' Distinguiamo quel testo per ciascuna parola
' (il carattere discriminante sarà, appunto, lo spazio presente fra parola e parola),
' e poniamo ogni parola in un elemento di una variabile array di tipi stringa:
ss = Split(TextArea1.Text, " ")
' "Sostituiamo" i caratteri della "prima" parola del testo originario, secondo i simboli prescelti dell'Unicode,
' avendo l'accortezza di "rigenerare" lo spazio che prima esisteva con la successiva parola:
TextArea1.Text = String$(Len(ss[0]), String.Chr(&2219)) & " "
' Procediamo a "sostituire" i caratteri per le altre stringhe contenute nei restanti elementi dell'array,
' anche qui avendo l'accortezza di "rigenerare" lo spazio che prima esisteva fra una parola e l'altra.
' Ogni parola, così mutata, sarà aggiunta ad ogni ciclo del "For" al testo della "TextArea":
For j = 1 To ss.Max
TextArea1.Text &= String$(Len(ss[j]), String.Chr(&2219)) & " "
Next
End