68 keystrokes with spaces, not including the value of $x...
Code:
$x='KiXscripting is fun!'
Dim $y[Len($x)]
For $z=0 to Ubound($y)
$y[$z]=SubStr($x,$z,1)
Next
90s to the next fun topic