Answered by : strange-sloth-5wsfef4uwk1u

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

Source : https://stackoverflow.com/questions/13195583/split-string-into-array-of-characters | Last Update : Thu, 15 Jul 21