VB+RS232

Bonjour à tous
Je veux tester si mon code VB envoie bien un message sur le port COM de mon PC. Voici mon code :


Private Sub Bouton_Envoi_Trame_Click()

MSComm1.CommPort = 1
MSComm1.Settings = "2400,n,8,1"
MSComm1.PortOpen = True
MSComm1.Output = Text1_1.Text
MSComm1.PortOpen = False

End Sub

Ca m'a l'air correct (je me tompe peut-être) mais je n'obtiens rien sur l'hyperterminal.
Quelqu'un aurait-il une solution?
Merci beaucoup