串口通信中开启串口问题

我先在做的是串口通信毕业设计，遇到以下问题：

1   打开我的vbp后，我还没有打开串口，但是数据已从单片机传至PC机   

2   单片机端设定了两个初值，    已传至PC端，现在在PC端更改那两个初值，但是发现更改不了，或者说 还没点击发送，已被单片机发过来的数据覆盖

发送代码：（代码没问题，现在发不出去的原因是已被覆盖，来不及发出去，怎么办）
Private Sub Command3_Click()
Dim outbte(1) As Byte
outbte(0) = Val(Text2.Text)
Call delay
outbte(1) = Val(Text3.Text)
MSComm1.OutBufferCount = 0 '...清空输出寄存器
MSComm1.Output = outbte
End Sub

求大神解答，非常感谢！！！

[ 本帖最后由 暗流年 于 2015-5-13 17:59 编辑 ]