文字の文字コード変換について (ID:108165)

名前

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

本文 半角全角は関係ないと思いますが.... テキストボックスを３つとボタンを二つフォームに貼り付けて Private Sub Command1_Click() Dim d As Long Dim s1 As String Dim s2 As String Dim n As Long Text1.Text = "愛上尾課kikukeko" '適当な文字を入れる 'カンマ区切りでコードを書き出す Text2.Text = Str(Asc(Mid(Text1.Text, 1, 1))) For n = 2 To Len(Text1.Text) s2 = Mid(Text1.Text, n, 1) Text2.Text = Text2.Text + "," & Str(Asc(s2)) Next n End Sub Private Sub Command2_Click() Dim a() As String Dim n As Long 'カンマ区切りのコードを配列に a = Split(Text2.Text, ",") '配列から文字列に For n = 0 To UBound(a) Text3.Text = Text3.Text & Chr(a(n)) Next n End Sub こんなのでどうですか？