aString := 'Now is the time for all good men to come to the aid of their blah blah blah'.

someWords := SortedCollection new.

someWords sortBlock: [:one :two | one <= two].

(aString findTokens: ' ') do: [:aWord | someWords add: aWord].

someWords

"--> SortedCollection ('aid' 'all' 'blah' 'blah' 'blah' 'come' 'for' 'good' 'is' 'men' 'Now' 'of' 'the' 'the' 'their' 'time' 'to' 'to' )"