VB6.中怎样将十六进制数值以十进制方式在TEXT文本框中显示？

Text1.Text =cstr(MSComm1.Input) 应该就行吧
如果还不行
dim a as long
a=clng(MSComm1.Input)
Text1.Text =cstr(a)
你只要确定MSComm1.Input返回的是一字节,应该就不会错的!

十六进制和十进制之间的转换：

Dim S As String, B As Byte, C as Long
S = "FF"
B = &HFE
C = 254
MsgBox Val("&H" & S)
MsgBox B
MsgBox Hex(C)

text1.text=cstr(val("&H" & a))
其中 a是16进制字符串变量

'改写 OnComm()事件:
Private Sub MSComm1_OnComm()
dim i as long
dim iData() as byte

if mscomm1.inbuffercount>0 Then
idata=mscomm1.input
for i=0 to ubound(idata)
text1.text = text1.text & idata(i) & " "
next i
end if
End sub

'若调试未通过，可以来信问我 cuidong@vip.163.com