doing a golf with your script gives:
code:
Dim $L, $S
$S = 'X'
While @ERROR = 0
  'String Length:' Len($S) ?
  $S = $S + $S
Loop
_________________________
!

download KiXnet