紧急求助VB串口通信问题

         TabIndex        =   3
         Top             =   1440
         Width           =   1035
      End
      Begin VB.ComboBox ComboJYW 
         Height          =   300
         ItemData        =   "CommTestForm.frx":0E9E
         Left            =   780
         List            =   "CommTestForm.frx":0EB1
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   1050
         Width           =   1035
      End
      Begin VB.TextBox TBTL 
         Height          =   300
         Left            =   780
         TabIndex        =   1
         Top             =   660
         Width           =   1035
      End
      Begin VB.ComboBox ComboCKH 
         Height          =   300
         ItemData        =   "CommTestForm.frx":0ED3
         Left            =   780
         List            =   "CommTestForm.frx":0EE3
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   270
         Width           =   1035
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "停止位:"
         Height          =   180
         Left            =   120
         TabIndex        =   15
         Top             =   1890
         Width           =   630
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "数据位:"
         Height          =   180
         Left            =   120
         TabIndex        =   14
         Top             =   1500
         Width           =   630
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "校验位:"
         Height          =   180
         Left            =   120
         TabIndex        =   13
         Top             =   1110
         Width           =   630
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "波特率:"
         Height          =   180
         Left            =   120
         TabIndex        =   12
         Top             =   720
         Width           =   630
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "串口号:"
         Height          =   180
         Left            =   120
         TabIndex        =   11
         Top             =   330
         Width           =   630
      End
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "制作人:清醒酒徒E-Mail:zjajhuangying@hotmail.com  QQ:404155308 Tel:13375822021"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   60
      TabIndex        =   16
      Top             =   4740
      Width           =   6930
   End
End
Attribute VB_Name = "CommTestForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCom_Click()
On Error GoTo Err
If Val(CmdCom.Tag) = 0 Then  'CmdCom.tag中可存放一个任意附加值,这里存放的值为0或1,分别表示当前串口状态是打开还是关闭
  LoadComm
  MSComm.PortOpen = True  '打开串口
  CmdCom.Caption = "关闭串口(&C)"
  CmdCom.Tag = 1
  CmdSend.Enabled = True
Else
  MSComm.PortOpen = False  '关闭串口
  CmdCom.Caption = "打开串口(&O)"
  CmdCom.Tag = 0
  CmdSend.Enabled = False
End If
Exit Sub
Err:
MsgBox "打开串口失败！可能由于其他程序占用了该串口或串口号无效！", vbOKOnly + vbCritical
End Sub

Private Sub CmdSend_Click()
Dim n As Integer
Dim SendStr As String
'提取要发送的字符
If CekHex.Value = 0 Then
  SendStr = TSend.Text
Else
  For n = 1 To Len(TSend.Text)
    SendStr = SendStr & Hex(Asc(Mid(TSend.Text, n, 1)))
  Next n
End If
MSComm.Output = SendStr  '给串口发送信息
End Sub

Private Sub Form_Load()
ComboCKH.ListIndex = 0
TBTL.Text = 9600
ComboJYW.ListIndex = 0
ComboSJW.ListIndex = 4
ComboTZW.ListIndex = 0
CmdSend.Enabled = False
CekHex.Value = 0
End Sub

Private Sub LoadComm()
MSComm.CommPort = ComboCKH.ListIndex + 1  '设置MSComm控件的串口号
MSComm.Settings = Val(TBTL.Text) & "," & LCase(Left(ComboJYW.Text, 1)) & "," & ComboSJW.Text & "," & ComboTZW.Text  '设置MSComm控件的参数
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm.PortOpen = True Then MSComm.PortOpen = False
End Sub

Private Sub MSComm_OnComm()With MSComm
        Select Case .CommEvent
            Case comEvReceive 
Dim InputStr As String

InputStr = MSComm.Input  '得到串口返回信息
TInput.Text = TInput.Text & Chr(13) & Chr(10) & InputStr
End Sub




哪位大虾帮我看一下程序什么地方出错了？应该怎么修改？谢谢

怎么没人帮我啊？急啊