مشکل با ارسال دیتاmscomm

سلام
من با تابع mscomm تونستم اطلاعات رو دریافت کنم
اما برای ارسال اون به مشکل برخوردم که ارسال نمیشه
چه باید انجام بدم؟

Private Sub Form_Load()

 MSComm1.CommPort = 6

    MSComm1.Settings = "9600, n , 8, 1"

    MSComm1.PortOpen = True

End Sub



Private Sub Command1_Click()

'MSComm1.Output = text2.Text

MSComm1.Output = Chr(10)

End Sub



Private Sub Timer1_Timer()

Text1.Text = Text1.Text + vbNewLine + MSComm1.Input

End Sub