Вопрос по Visual Basic

Берешь цикл for от 1 до длины строки(len(s)) и посимвольно копируешь в массив.
Что-то вроде этого:

Dim a As String
Dim i As Integer
Dim mas(10) As String * 1
a = "12345"
For i = 1 To Len(a)
mas(i) = Mid(a, i, 1)
Next i

Спасибо.

Появилось еще несколько вопросов.
1) Как перенести текст на следующую строку, например в меседж-боксе.
2) Как вставить строку n в определеное место строки m.
Заранее огромное спасибо.

1) Можно воспользоваться спецсимволом для сноса строки под кодом 13
Примерно так:
MsgBox "1 строка" & Chr(13) & "2 строка"

2) Не знаю есть ли в VB отдельная функция для вставки подстроки. Но можно воспользоваться той же mid
Например, так:

Dim a As String
Dim b As String
a = "1111111111111"
b = "55"
a = Mid(a, 1, 4) & b & Mid(a, 5, Len(a))

Тут просто берутся первые 4 символа строки a, затем после них добавляется строка b и после нее оставшиеся символы строки a.
В результате строка a будет содержать 111155111111111

Спасибо!!!!