VB.Netでのシリアル通信についての質問

質問

VB6.0でバイト型変換を行ってからバッファに送信する
プログラムを使用しているのですが、これを.Netにて
同様に行う記述方法が分りません。お分かりになる方
よろしくお願い致します。抜粋しておりますのでヘンテコ
なソースかとは思いますがよろしくお願い致します。主にChrBが使用出来なくなった事が困っております。
(VB6.0と同様にAxMSCommを使用しております。)

Private Sub Rs232c_Com()

Dim bytOutByte() As Byte
Dim strCmdData as String

　 strCmdData="83"

'コマンド送信
bytOutByte() = ChrB(Val("&h" & strCmdData))
MSComm1.Output = bytOutByte()

End Sub

回答No.1

BLUEPIXY · ベストアンサー

strCmdDataが２桁の１６進文字列なら

Dim bytOutByte(1) As Byte

bytOutByte(0) = CByte(Val("&h" & strCmdData))
でいいと思います。
複数桁でも、２文字ずつ切り出せば同じことかと思います。