在VB中，使用WinHttpRequest或MSXML2.XMLHTTP等库可以很方便地发送带有消息体的POST请求。以下是一个基本的带有消息体的POST请求示例：

Dim http As Object

Set http = CreateObject("WinHttp.WinHttpRequest.5.1")

Dim url As String

url = "http://www.tugaga.com/api/data"

Dim data As String

data = "name=John&age=30"

http.Open "POST", url, False

http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

http.Send data

MsgBox http.responseText

在这个示例中，我们首先创建了一个WinHttpRequest对象，并设置URL和数据（data）参数。然后，我们设置请求头中的Content-Type为application/x-www-form-urlencoded，并使用Send方法发送POST请求。

请注意，如果要发送JSON格式的消息体，则需要将Content-Type设置为application/json，并将数据转换为JSON字符串。例如：

Dim http As Object

Set http = CreateObject("WinHttp.WinHttpRequest.5.1")

Dim url As String

url = "http://www.tugaga.com/api/data"

Dim data As String

data = "{""name"":""John"",""age"":30}"

http.Open "POST", url, False

http.setRequestHeader "Content-Type", "application/json"

http.Send data

MsgBox http.responseText

在这个示例中，我们将数据转换为JSON格式，并将Content-Type设置为application/json。注意，在此情况下，不需要使用“=”符号将键值对分隔开来。

无论使用何种方式，您都可以在请求头中设置Content-Length标头来指定消息体的大小，例如：

http.setRequestHeader "Content-Length", Len(data)

请注意，以上代码示例仅适用于发送HTTP POST请求，如果需要使用HTTPS协议则需要进行额外的配置。