关于VB三菱FX系列PLC的通信

各位大侠:
     帮帮忙,帮我看一下下面这段程序错在那里?读出来老是乱码!!!!
我用的是SC-09连接起来的.
Private Sub Command1_Click()
If Text1.Text = "" Then
List1.AddItem "发送缓冲区无数据"
Exit Sub
End If
MSComm1.Output = Chr(2) + "0110002" + Chr(3)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub


Private Sub Form_Load()
'选择com1
MSComm1.CommPort = 1
'设置波特率为9.6kpbs，没有奇偶校验，8位数据位，1位结束位
MSComm1.Settings = "9600,N,8,1"
'读取全部的输入缓冲区
MSComm1.InputLen = 0
'端口打开
MSComm1.PortOpen = True
MSComm1.RThreshold = 10
MSComm1.SThreshold = 10
'以下就可以进行数据的发送了
End Sub

'所有的通讯事件都可以激发MSComm1控件的OnComm事件

Private Sub MSComm1_OnComm()
Dim ar As String
Select Case MSComm1.CommEvent
Case comEvReceive
'此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理
Case comEvSend
'此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理
List1.AddItem "发送缓冲区有数据"
ar = MSComm1.Input
End Select
End Sub