求救啊!串口通讯程序

请各位帮忙看看我的程序.主要是两太电脑串口连接.能发送字符就可以了.
可是现在只可以发送,但是收不到字符.而且字符串如果太长就收不完全.我是初学者,请各位帮个忙.
Private Sub MSComm1_OnComm()
MsgBox (getit)

Dim Buf$, I%
Select Case MSComm1.CommEvent  '按着根据下面每一
                              '个Case 语句来处理每一个事件和错误事件
Case comEvCD                   'CD 线的状态发生变化
Case comEvCTS                  'CTS线的状态发生变化
Case comEvDSR                  'DSR线的状态发生变化
Case comEvSend                 '传输缓冲区中有Sth resho ld 个字符
Case ComEvRceive               '收到R th resho ld 个字符
   Buf = " "
   InByte = Comm1.Input
   For I = LBound(InByte) To UBound(InByte)
   Buf = Buf + Hex(InByte(I) + Chr(32))
   Next I
   Text2.Text = Buf
   End Select
 End Sub
'窗体加载事件在此作开启通讯端口的动作
'开启之前 , 可以将通讯参数先行指定后然后再开启
个忙吧.主要是MSComm控件那一块.