Do Application.DoEvents()Loop Until MSComm1.InBufferCount >= 13Dim a As String = MSComm1.InputLabel1.Caption = a.Substring(1, 9)Label2.Caption = a.Substring(10, 3)
