¿Cómo programar VB para guardar texto en un cuadro de texto?

¿Privado?Sub?cmdAdd_Click()

Dim?s1?As?String

Dim?s2?As?String

Dim ?I1?As?Integer

s1?=?txtSentense.Text

I1?=?1

Hacer

Hacer?Mientras ?Mid(s1,?I1,?1)?lt;gt;?"?"?And?I1?lt;=?Len(s1)

s2?=?s2?amp;?Mid (s1, ?I1, ?1)

I1?=?I1?1

Bucle

lstWord.AddItem?s2

s2?=?""

I1?=?I1?1?1

¿Bucle?While?I1?lt;=?Len(s1)

¿Fin?Sub