Unfortunately you've also broken it as you've re-introduced the extra blank array element.
You can remove one set of parentheses to reduce the golf score by 2 though:
Code:
$='KiXscripting is fun!'
Dim $y[(0^$)-1]
For $z=1 to 0^$
$y[$z-1]=SubStr($,$z,1)
Next
Using "^" to get the string length is a neat trick. Anyone considering using it in production should check with Ruud that it will be supported going forward as if it is unintentional the feature might disappear.
