“Zamień ciąg w tablicę VBA” Kod odpowiedzi

Zamień ciąg w tablicę VBA

Dim buff() As String
ReDim buff(Len(my_string) - 1)
For i = 1 To Len(my_string)
    buff(i - 1) = Mid$(my_string, i, 1)
Next