Dim i As LongDim lngStr As LonglngStr = Len(str)ReDim Strs(lngStr)For i = 0 To lngStr - 1 Strs(i) = Mid(str, i + 1, 1)Next
