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

解決

---

パソコンの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

編集 削除

---

Private Sub MScomm1_OnComm()
Dim bytDat()    As Byte
Dim RDat        As Variant
Dim St          as string
bytDat() = MSComm1.Input
y = y + 1 '???
'RDat = Val(bytDat())                     'テキストボックスで受信データ表示
'Text1.Text = Text1.Text & RDat
st=""
for each RDat in bytDat
  st=st & right$("00" & Hex$(RDat),2)
next
Text1.Text=Text1.Text & RDat
End Sub

もっと型に気をつければよかったかもしれない。
※誤爆予感…

編集 削除

---

やっぱり誤爆してた(orz

Text1.Text=Text1.Text & RDat
↓
Text1.Text=Text1.Text & st

※多分もう大丈夫。

編集 削除

---

うまくいきました。
本当にありがとうございました。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。