Question

VB.net串口通讯接收数据写法

我有一段VB6写成的串口数据（以下语句写在Timer中）：
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 13
a = MSComm1.Input
Label1.Caption = Mid(a, 1, 9)
Label2.Caption = Mid(a, 10, 3)

（SerialPort）
请问，如何改成VB.net语法格式 ，求解？

Answer 1

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