在VB中实时读取串口数据的方法有多种，以下是其中一种常用的方法：
首先，在VB中引用System.IO.Ports命名空间，以便使用相关串口类。
然后，在VB的代码中创建一个SerialPort对象，并设置好串口的相关属性，如端口号、波特率、数据位等。
接下来，使用SerialPort对象的Open方法打开串口，并注册一个事件处理程序来处理接收到的数据。
最后，在事件处理程序中，使用SerialPort对象的ReadLine或ReadExisting方法来读取串口接收到的数据。
以下是一个示例代码：
Imports System.IO.Ports
Public Class Form1
Private WithEvents serialPort As New SerialPort()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 设置串口属性
serialPort.PortName = "COM1"
serialPort.BaudRate = 9600
serialPort.Parity = Parity.None
serialPort.DataBits = 8
serialPort.StopBits = StopBits.One
' 打开串口
serialPort.Open()
End Sub
Private Sub serialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles serialPort.DataReceived
' 读取串口接收到的数据
Dim data As String = serialPort.ReadLine()
' 处理接收到的数据
' ...
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
' 关闭串口
serialPort.Close()
End Sub
End Class
上述代码中，Form1_Load事件处理程序在窗体加载时打开串口，并注册了serialPort_DataReceived事件处理程序来处理接收到的数据。serialPort_DataReceived事件处理程序在串口接收到数据时被触发，其中通过serialPort.ReadLine()方法读取一行数据，然后可以进行后续处理。
需要注意的是，在使用SerialPort对象之前，需要确保计算机上已经安装了对应的串口驱动程序。另外，串口通信涉及到硬件方面的知识，需要根据实际情况设置正确的串口属性。