mit dem put gehts auch nicht in visual basic kann ich es schalten mit dem befehlen

MSComm1.CommPort = "2"
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputMode = comInputModeBinary
MSComm1.PortOpen = True

MSComm1.Output = Chr$(1) & Chr$(1) & Chr$(0) & Chr$(0)