要求：用VB编写程序，采集电子数显千分表的数据，放入list1中，以备处理。

数显表的接口参数：波特率 4800，数据位8位，无奇偶校检，1位停止位，以ACSII 码传送数据，
可能要每隔几秒采集一次数据。数显表的专用接口线与计算机RS232（9针）连接。
 问题：用下面这个程序运行没反应或者全是0，怎么延时？怎么放数据到list中？
 
由于刚接触VB，下面这个程序是拼凑起来的，可能很离谱，希望帮忙改正。
Dim receive_data(1 To 20) As Byte
Private Sub Command1_Click()
For i = 1 To 20
List1.AddItem Val(receive_data(i))
Next i
End Sub '把采集到的数据放入list1中
Private Sub Command2_Click()
MSComm1.PortOpen = flase
End
End Sub '结束
Private Sub MSComm1_OnComm()
Dim InBuffer As Valiant
Select Case MSComml.CommEvent
Case comEvReceive
Do Until MSComml.InBuffeiCount <> 0
Ret = DoEvents()
Loop
InBuffer = MSComml.Input
receive_data = InBuffer
End Select
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
MSComm1.CommPort = 1
MSComm1.Settings = "4800,n,8,1"
MSComm1.InBufferSize = 40
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 1
MSComm1.InBufferCount = 0
End Sub

我也想解决这方面的问题，哪位高手可以指点一下。我将不胜感激！！！

MSComm1.PortOpen = True
MSComm1.CommPort = 1
顺序反了，应先指定端口号再打开
MSComm1.InputMode = comInputModeBinary
用于接收16进制数据，接收ACSII 码时  MSComm1.InputMode = comInputModeText
不清楚电子数显千分表的通信协议，一般情况下是VB先向设备发读取数据命令，延时接收设备返回的数据，以上编程没体现出VB发送数据，应该得不到返回数据。