sounds like he's looking for an array of letters...

Code:

$word = 'testword'
dim $letters[len($word)-1]
for $j = 0 to ubound($letters)
   $letters[$j] = substr($word,$j+1,1)
next

for each $letter in $letters
   ? $letter
next