'DAns le form load mscomm1.CommPort = 1If MSComm1.PortOpen False Then MSComm1.PortOpen True ' dans un timer Dim InPut_Serie as stringIf MSComm1.PortOpen False Then MSComm1.PortOpen True If MSComm1.PortOpen = True Then InPut_Serie = InPut_Serie & MSComm1.Input Posicion = InStr(InPut_Serie, Chr(13)) End if