[RESOLVED] Moving text from a text box into an array

Hi

I´m writing into a text box just a few words like 1 to 20 words. Then I´m using

textitilbuinn = Trim(Text6)
Textinn = Split(textitilbuinn, Space(1))

In this case textinn is the name of the array.

This works but I never get the last word? It the string is - Hello I am in trouble. Then I get hello I am in

Any help? Also is there an easy way to go through a text box an remove all extra spaces - only allowing one space.
Keli