要在 VB 中获取客户端 IP 地址，您需要使用 Socket 编程。以下是在 VB 中获取客户端 IP 地址的一般步骤：

创建一个 Socket 对象并绑定到服务器端口：

Dim server As New System.Net.Sockets.TcpListener(System.Net.IPAddress.Any, 8888) 
server.Start()

等待客户端连接并接受连接请求：

Dim client As System.Net.Sockets.TcpClient = server.AcceptTcpClient()

获取客户端 IP 地址：

Dim clientIP As String = CType(client.Client.RemoteEndPoint, System.Net.IPEndPoint).Address.ToString()

现在，clientIP 变量包含客户端 IP 地址。

请注意，此代码仅提供了一般概述，并假定您已经熟悉 VB 和 Socket 编程。您需要进一步调整和完善代码以确保其适用于您的具体应用程序需求。