如何編程讓VB運行文本框的文字保存？

Dim?s1?As?String

Dim?s2?As?String

Dim?I1?As?Integer

s1?=?txtSentense.Text

I1?=?1

Do

Do?While?Mid(s1,?I1,?1)?<>?"?"?And?I1?<=?Len(s1)

s2?=?s2?&?Mid(s1,?I1,?1)

I1?=?I1?+?1

Loop

lstWord.AddItem?s2

s2?=?""

I1?=?I1?+?1

Loop?While?I1?<=?Len(s1)

End?Sub