如果MSComm1.InputMode = comInputModeBinary
Text1.Text = Text1.Text + MSComm1.Input会出现实时错误13，类型不匹配
Text1.Text = MSComm1.Input可以显示的
为什么呢
然后我看网上的做法，
dim buff as byte
buff=mscomm1.input
text1.text=text1.text+buff
这样写还是有同样的错误

建议你去这看看，只有基础打好了才能走的更远————
http://www.