50分：用MSComm控件串行通信，怎摸接收不到呢？请高手指点--在线等

我用vb编了一个串行发送的协议，用RS232和dsp通信的，我发出去，怎莫没有响应，dsp是没有错误的，波特率和校验也没有错误我用串口调试工具调试过DSP ,可以发送和接收。和DSP用RS232的2，3，5脚通信
但是相同的数据用我下面的程序dsp那边显示没有接收 ，
我将RS232的2和3脚短接，自己能接收到数据，但是dsp那边显示没有接收 ，这到底是怎摸回事。麻烦高手帮我看一下：
Private Sub Command1_Click()Dim dictate(15) As Byte
dictate(0) = &H68
dictate(1) = &HA
dictate(2) = &HA
dictate(3) = &H68
dictate(4) = &H4D
dictate(5) = &HFF
dictate(6) = &H77
dictate(7) = &H5
dictate(8) = 5
dictate(9) = &HFF
dictate(10) = &H5
dictate(11) = &H64
dictate(12) = 48
dictate(13) = 0
dictate(14) = 65H
dictate(15) = &H16If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True 
Else
End If
MSComm1.Output = dictate       ' 发送数据
End Sub‘----------------------------------------------------
Private Sub Form_Load()            '初始化控件的属性
 
MSComm1.CommPort = 1MSComm1.Settings = "2400,E,8,1"MSComm1.InputLen = 0 MSComm1.RThreshold = 1 MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0 
End Sub
’--------------------------------------------------Private Sub MSComm1_OnComm()  '接收程序  Dim arr As Variant
  Dim buf() As Byte
  Dim m As Integer
  Dim n As IntegerSelect Case MSComm1.CommEvent     Case comEvReceive             
      
  MSComm1.InputMode = comInputModeBinary If MSComm1.PortOpen = False Then
  
       MSComm1.PortOpen = True
  Else
  End If
  '-----------------------------------------------------
    n = MSComm1.InBufferCount    
         Print n
            ReDim buf(0 To n - 1)
           
            arr = MSComm1.Input         
            
            buf = arr                                     Print buf(0)         '用于验证是否接收到
           Print buf(1)
           Print buf(2)
           Print buf(3)
           Print buf(4)
           Print buf(5)
           Print buf(6)
           Print buf(7)
           Print buf(8)
           Print buf(9)
           Print buf(10)
           Print buf(11)
           Print buf(12)
          
Case Else
End Select
End Sub