Amasing, IMHO many of us, will be expecting your App.
I don't understand your request, you look like a good programmer, but if you want to make an array of words of a User sentence of characters english alike (not ä or é or else), must look something like this.
Dim Words(130) As String, WordIdx As Long
Sub SplitByWords(ByRef USERSENTENCE As String)
Dim CH As Byte, i As Long, j As Byte ' Note that strFields is a dynamic array of strings
WordIdx = 0
For i = 1 To Len(USERSENTENCE)
CH = Asc(Mid(USERSENTENCE, i, 1))
If (CH > 64 And CH < 91) Or (CH > 96 And CH < 123) or CH=39 Then
j = j + 1
Else
If j <> 0 Then
Words(WordIdx) = Mid(USERSENTENCE, i - j, j)
WordIdx = WordIdx + 1
j = 0
End If
End If
Next i
If j <> 0 Then Words(WordIdx) = Mid(USERSENTENCE, i - j, j) Else WordIdx = WordIdx - 1
End Sub
Private Sub Command1_Click()
Dim i As Long
SplitByWords speaktext.Text
For i = 0 To WordIdx
MsgBox Words(i)
Next i
End Sub
being speaktext your textbox
I hope to understand your question and that this code could help you.