Private Sub Command1_Click()
x = 0
For j = 1 To Len(Trim(Text1.Text))
kt1 = Mid(Trim(Text1.Text), j, 1)
kta = kta + kt1
If kt1 = Chr(32) Then
x = x + 1
kta = ""
If x >= 0 Then List1.AddItem Trim(kta)
How i can split a sentences into words and add splitted words into listbox.
You could try writing some code as is suggested for submitting requests in the guidelines.
But you could use the Mid function as indicated or you could use the Instr function. Search for the space character and declare a variable to return the value returned from your search. You'll use that value to start determine the word and also to determine the start point for the remaining portion of your search.