在VB中發送HTTP請求可以通過使用MSXML2.XMLHTTP對象來實現。以下是一個簡單的例子：
Sub SendHTTPRequest()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Dim url As String
url = "http://www.example.com"
xmlhttp.Open "GET", url, False
xmlhttp.Send
If xmlhttp.Status = 200 Then
MsgBox xmlhttp.responseText
Else
MsgBox "Error: " & xmlhttp.Status & " - " & xmlhttp.statusText
End If
Set xmlhttp = Nothing
End Sub
在上面的代碼中，我們首先創建了一個MSXML2.XMLHTTP對象，然后指定請求的URL，并使用Open方法指定請求的方法（GET或POST），最后使用Send方法發送請求。通過判斷Status屬性的值可以判斷請求是否成功，如果成功則可以通過responseText屬性獲取到響應內容。
