串口问题（急）

这是一个通过9针串口和单片机通讯的程序。由计算机向单片机发送数据可以实现，但是由单片机向计算机发送数据时用下面的程序却接受不到。通过串口调试软件可以证明单片机发送、接受数据的程序都是正常的，问题就出在VB编写的接受程序中。哪位高手能给指点一下，最好帮忙修改一下。谢谢
Private Sub Command1_Click()
Dim num As Integer
Dim outbte(0) As Byte
num = Val(Text1.Text)
outbte(0) = CByte(num)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbte() '动态数组

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "1200,n,8,1"
MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()
Dim indata As Variant
Dim bte(0) As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
indata = MSComm1.Input
bte(0) = AscB(indata)
Text2.Text = bte(0)
MSComm1.InBufferCount = 0
End Select
End Sub