Dim Arr() As String * 1
stringa = "Oggi dormo"
For X = 1 To Len(stringa)

ReDim Preserve Arr(X)
Arr(X) = Mid(stringa, X, 1)
'Debug.Print Arr(X)
Next