Break On

$word = 'testword'
Dim $letters[Len($word)-1]
For $j = 0 to Ubound($letters)
	$=Execute("$$Letters$j = SubStr($word,$j+1,1)")
Next

? 'Letter 1: '+$Letters0
? 'Letter 2: '+$Letters1