NTDOC,

take a look at: KiXtart Golf Tournament IV: Anagrams (Part 2, The code!)

It has a sort function:
code:
Function S($)
  Dim $t
  For $S = 1 TO Ubound($)
    $t = $[$S-1]
    If $[$S] < $t
      $[$S-1] = $[$S]
      $[$S]   = $t
      $S = 0
    EndIf
  Next
  $S = $
EndFunction
So simply create an array of strings and use the sort function....
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...