Convert word to array

does anyone here know how to convert a single word to an array. example: word "test" becomes an array:

array(0) = "t"
array(1) = "e"
array(2) = "s"
array(3) = "t"

thx

dim myArray() 'declare your array
redim myArray(len("test")) ' re-dimension it by the length of your string
dim i
for i = 1 to len("test") ' loop through your string one letter at a time
myArray(i-1) = mid("test",i,1) ' add the letter to your array
next