Send data over excel VBA (macro)

send_data_over_excel_vba.bas

Sub Macro1()
Dim result As String
Dim myURL As String, postData As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

myURL = "http://localhost:8082/ws"
postData = "q=suat"

winHttpReq.Open "POST", myURL, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.Send (postData)

result = winHttpReq.responseText

MsgBox (result)
ActiveWorkbook.Save
    ActiveWorkbook.Save
    ActiveWorkbook.Save
End Sub