代入するには? (ID:103662)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim A() as String L = Len(Text1.Text) ReDim A(L) For i = 0 to L A(i) = Mid(Text1.Text,i,1) Next i これでできると思います