Your solution has an extraneous element in your array. This one is better...

Code:

$x='KiXscripting is fun!'
Dim $y[Len($x)-1]
Do
  $y[$z]=SubStr($x,$z+1,1)
  $z=$z+1
Until $z=Len($x)