16進数の変換

質問

visualbasic6.0で加速度センサーから傾きを検出するプログラムを作りたいのですが、初心者のため手探りでやっている状態です。
センサーからの信号は１６進数で４バイトずつ送られてきます。
これを１０進数に直して、前の２バイトと後ろの２バイトを分けて表示したいのですが解かりません。以下が現段階のコードの１部です。

Private Sub MSComm1_OnComm()
Dim bytBuf() As Byte
Dim strDisp As String
Dim lngCount As Long

Select Case MSComm1.CommEvent
Case comEvReceive
If List1.ListCount = 0 Then
MSComm1.InBufferCount = 0
End If
Do
bytBuf = MSComm1.Input
strDisp = ""
For lngCount = LBound(bytBuf) To UBound(bytBuf)

strDisp = strDisp & Right("00" & Hex(bytBuf(lngCount)), 2) & " "
Next

List1.List(0) = List1.List(0) & strDisp
Loop While MSComm1.InBufferCount <> 0
End Select
End Sub

回答No.2

colhan

必ず４バイト来るなら
右２文字と左２文字に分けるだけのような気がしますが。

回答No.1

unamana19

16進数を10進数にしたいということかな？

Dim x As String
x = "FFFF"
Debug.Print CLng("&H" & x)