xaviz respondió:
¿Has probado así?. Option Explicit Dim Cadena as String Private sub form_load() MSComm1.CommPort = 1 MSComm1.Settings = "19200,n,8,1" MSComm1.InBufferCount = 0 MSComm1.InputLen = 0 MSComm1.PortOpen = True end sub Private sub MSComm1_OnComm()...