VB有一个例子在Samples\CompTool\Mscomm中。你可以利用这个例子来学习串口编程。 
    打开串口先设置CommPort属性(端口号)，使用PortOpen=True就可以了。 
    串口数据保存在MSComm的Input属性中。你可以使用下面的代码： 
    Dim v As Variant 
    v = MSComm1.Input 
    For i = 0 To MSComm1.InBufferCount - 1 
     Debug.Print v(i) 
    Next 
<END>