バイナリデータをテキストボックスに表示するには？ (ID:88143)

名前

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

本文 パソコンのCOMポートに接続した装置からバイナリデータを受信して、 そのデータをテキストボックスに表示する処理をしたいのですが．．． たとえば、"00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F" といったデータを受信した場合、"0000000000000000"と表示されて しまいます。（0A，0B などそのまま表示したいのですが） ご助力何卒お願いいたします。 Private Sub MScomm1_OnComm() Dim bytDat() As Byte Dim RDat As Variant bytDat() = MSComm1.Input y = y + 1 RDat = Val(bytDat()) 'テキストボックスで受信データ表示 Text1.Text = Text1.Text & RDat End Sub