So sieht mein testcode aus:

Private Sub Form_Load()

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

End Sub

___________________________________________

Private Sub Command1_Click()

MSComm1.Output = "#s"
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(80)

End Sub