Soy nuevo en el control del OCX MSComm y estoy tratando de hacer pruebas de envio y recepcion de datos por el puerto serie de mi computador pero sigo sin tener resultados, este es el codigo por favor necesito un poco de ayuda

Private Sub Command1_Click()
MSComm1.Output = Text1.Text

End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
Timer1.Enabled = False
End
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
Timer1.Enabled = True
Timer1.Interval = 500

End Sub


Private Sub MSComm1_OnComm()
If comEvReceive Then
StrBuffer = MSComm1.Input
Text2.Text = StrBuffer
End If
End Sub