Как разделить string на буквы быстро?

[xenomorph]

Всем привет!

Вопрос: Как "очень быстро" разделить строку на массив символов? (тоже типа "стринг")

т.е. есть:

Код: Выделить всё

s_inputData = "Вася хороший"

Получить:

Код: Выделить всё

sa_outputData(0) = "В"
sa_outputData(1) = "а"
sa_outputData(2) = "с"
sa_outputData(3) = "я"
sa_outputData(4) = " "
sa_outputData(5) = "х"
sa_outputData(6) = "о"
...

Мне ничего в голову кроме:

Код: Выделить всё

For i As Long = 0 To s_Text.Length
  sa_outputData(i) = inputData.Substring(i, 1)
Next

Не приходит

А хочеться какой нить .split(inputData, х.з. что тут)!

Заранее спасибо!

[Joo]

Код: Выделить всё

sa_OutputData = s_InputData.ToCharArray

[MIT]

А еще есть такая фишка:

Код: Выделить всё

Dim str as string = "some text"
Dim someChar as Char = str(2)

или даже так:

Код: Выделить всё

Dim someChar as Char = "some text"(2)

[FireFenix]

Строка - массив символов

Код: Выделить всё

Dim Text As String = "qwerty"

MsgBox(Text(0)) 'Табличка с буквой q


[1Steps]

Код: Выделить всё

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s_inputData As String = "Вася хороший"
        Dim s_arr() As Char = s_inputData.ToCharArray
        For Each s As String In s_arr
            MsgBox(s)
        Next
    End Sub

[xenomorph]

Ого! Всем спасибо! Все варианты работают!