在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對象之前，需要確保計算機上已經安裝了對應的串口驅動程序。另外，串口通信涉及到硬件方面的知識，需要根據實際情況設置正確的串口屬性。