VBAでChatWorkとhttp通信するためのコード

Sub ChatWorkにメッセージを投稿()

Dim myHttpRequest
Dim myURL
Dim myPostData
Dim Result
Dim room_id
Dim Token

room_id = *******
myURL = "https://api.chatwork.com/v1/rooms/" & room_id & "/messages"
Token = ****************

myPostData = "body=" & メッセージの内容
Set myHttpRequest = CreateObject("MSXML2.XMLHTTP.3.0")
Call myHttpRequest.Open("POST", myURL, False)
Call myHttpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Call myHttpRequest.setRequestHeader("X-ChatWorkToken", Token)
Call myHttpRequest.send(myPostData)

Result = myHttpRequest.responseText

Set myHttpRequest = Nothing


End Sub