高手求助 MScomm问题

Question

小弟初学VB 用MScomm串口通信  将串口2，3针短接 测试所写代码 form上的Text没有发送的字符 求助！
Option ExplicitPrivate Sub Form_load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,o,8,1"
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
    MSComm1.Output = "aaa"End SubPrivate Sub MSComm1_OnComm() '接收
Select Case MSComm1.CommEvent
    Case comEvReceive
         Dim buffer As Variant
         MSComm1.InputLen = 0
         MSComm1.InputMode = comInputModeText
         buffer = MSComm1.Input
         Text1.Text = buffer
    Case Else
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
  MSComm1.PortOpen = False
End Sub