Splitting a string such that individual characters are elements of an array.

Is there a simpler way to do this?

Code:
If @LOGONMODE = '1' Break Off Else Break On EndIf
$=SetOption('WrapAtEOL','On')
$=SetOption('NoVarsInStrings','On')
$=SetOption('Explicit','On')

Dim $w,$x,$y,$z

$w='KiXscripting is fun!'

Dim $Array[Len($w)]

$x=Len($w)

  For $y=0 to $x
   $Array[$y]=SubStr($w,$y,1)
  Next

  For Each $z in $array
   ?$z
  Next

Sleep 0.75

Quit