把
inbyte(0) = MSComm1.Input
Text2.Text = inbyte
改成
inbyte = MSComm1.Input
Text2.Text = inbyte(0) (不一定是0,你要显示哪一位就写几)
试试..
(我对VB的格式不熟悉,不过看起来多半是这个问题)
你在接受input之前要加一个延时函数,
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '声明sleep函数
DoEvents
Sleep 800 '0.8秒来读mscomm1.input
这样让数据能完全进入缓冲后再读,否则会读不到信息。