Private Sub cmdAdd_Click()
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