hmm...
chris' code shortened:
Code:

$x='KiXscripting is fun!'
Dim $y[0^$x]
For $z=1 to 0^$x
  $y[$z]=SubStr($x,$z,1)
next
_________________________
!

download KiXnet