在VB中搭建HTTP服务器，可以使用Web服务器控件。以下是一个简单的示例：

1. 首先，我们需要在VB中添加对Web服务器控件的引用。在工具箱中找到“Web”选项卡，然后点击“Web服务器控件”，将其添加到窗体上。

2. 接下来，我们需要创建一个HTML文件，用于显示服务器的欢迎信息。将以下代码复制到HTML文件中：

```html

欢迎来到我的HTTP服务器

这是一个使用VB编程实现的HTTP服务器。

```

3. 在VB中，我们需要编写一个程序来处理HTTP请求。以下是一个简单的示例：

```vb

Imports System.Net.Http

Imports System.Net.Http.Headers

Imports System.Text

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim httpClient As New HttpClient()

Dim response As String = Await httpClient.GetStringAsync("http://localhost:8080/")

Me.InvokeIfRequired(Sub(sender As Object, e As EventArgs) Me.Invoke(Sub(sender As Object, e As EventArgs) Me.lblWelcome.Text = "欢迎来到我的HTTP服务器" & vbCrLf & response))

End Sub

End Class

```

在这个示例中，我们创建了一个名为Form1的窗体，并在其上添加了一个名为lblWelcome的Label控件。当窗体加载时，我们使用HttpClient对象向本地主机（localhost）上的8080端口发送GET请求，并将响应内容显示在Label控件中。

4. 最后，我们需要运行这个程序。右键单击项目，选择“发布为可执行文件”，然后在命令行中输入`start 你的程序名.exe`，即可启动服务器。

注意：这个示例仅用于演示目的，实际生产环境中需要根据具体需求进行修改和优化。