漢字をＢｙｔｅに転送したい (ID:82103)

名前

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

本文 Midでは１文字分を認識してしまうためうまく行かないのは わかるのですが、ではどうしたらよいのか？がわかりません。 Dim bByte(4) As Byte Dim sMoji As String Dim X AS Integer sMoji = "あいうえお" For X = 1 To 5 bByte(I - 1) = Asc(Mid(sMoji, I, 1)) Next X