Ver originalPrivate Sub MSComm1_OnComm() If MSComm1.CommEvent = 2 Then Label1.Caption=Mid$(MSComm1.Input, 2, 10) End Sub