大侠帮忙，急求VB串口调试源码,AscII码传输的

Option Explicit
Private strData as String

Private Sub Command1_Click() ' 发送
MSComm1.Output = "123456"
End Sub

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1 ' 触发ONCOMM事件
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeText ' ASCII接收
Text1 = ""
End Sub

Private Sub MSComm1_OnComm()
Select Case frmMain.MSComm1.CommEvent
Case comEvReceive
strData = Mscomm1.Input
Text1 = Text1 & strData
End Select
End Sub