[求助]用VB编程的同志,进来指示指示!!

高手帮看看
这个程序是否可以发送十六进制的数据,如果不能,还缺少什么语句!!!

Private Sub Command1_Click()
Dim echoch%

If MSComm1.PortOpen Then
If Text1.Text <> "" Then '若命令输入框不空，则将其转换为十六进制数值
echoch% = Val("&H" & Text1.Text)
Else
MsgBox "请输入数据!", vbOKOnly, "错误"
End If
MSComm1.Output = Chr(echoch%)  '向串行口写入一字节命令，由WINDOWS自动将命令发出
End If
Label3.Caption = Hex(echoch%) '显示刚发出的命令
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
Label1.Caption = ""
Label5.Caption = "串口关闭"
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
End If
End
End Sub

Private Sub Form_Load()
If Not MSComm1.PortOpen Then '若串行口没有打开，则打开串行口
MSComm1.PortOpen = True
End If
Label1.Caption = MSComm1.Settings '显示串行口的设置。
Label5.Caption = "串口已经打开"
End Sub

Private Sub MSComm1_OnComm()
MSComm1.CommPort = 1 '使用串行口1
'波特率4800，偶校验，8个数据位，1个停止位。
MSComm1.Settings = "4800，E，8，1"
'当使用MSComm1.Input时，每次从接收缓冲区取一个字节。
MSComm1.InputLen = 1
End Sub

有些数据发送不了  比如:f1,f2-------f9
本人菜鸟中的鸟

先谢

还是没有说明什么呀 !!

Private Sub Command1_Click()
Dim echoch%
If MSComm1.PortOpen Then
If Text1.Text <> "" Then '若命令输入框不空，则将其转换为十六进制数值
echoch% = Val("&H" & Text1.Text)
Else
MsgBox "请输入数据!", vbOKOnly, "错误"
End If
MSComm1.Output = Chr(echoch%)  '向串行口写入一字节命令，由WINDOWS自动将命令发出
End If
Label3.Caption = Hex(echoch%) '显示刚发出的命令
End Sub
这里应该缺少点什么

echoch% = Val("&H" & Text1.Text)
这个表达式是不是大于128的字符数据 就不能发送