Here is corrected code.

Code:

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