Как задать в массив значение ячейки?

[StudentofSUSU]

Здравствуйте еще раз, суть моей проблемы: в строку надо скопировать значение ячейки, чтобы в последствии работать со значением ячейки посимвольно. То есть, если в ячейке содержится значение "ab", нужно получить массив s(1)=a,s(2)=b.

[EducatedFool]

Sub test()
    [a1] = "строка" ' вводим текст в ячейку
    txt = [a1].Text ' берем текст из ячейки
    ReDim s(1 To Len(txt)) ' определяем границы массива
    For i = 1 To Len(txt)
        s(i) = Mid(txt, i, 1) ' записываем букву в массив
        Debug.Print i, s(i) ' выводим на печать
    Next i
End Sub

В результате получаем:

1 с
2 т
3 р
4 о
5 к
6 а

Вообще, чтобы работать со строкой посимвольно, во многих случаях совсем необязательно перегонять буквы в массив.