Post Data from xls file using VBA

Public Function PostData(strPayload As String)
Dim oRequest As Object
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
oRequest.Open "POST", "your_api_url", False
oRequest.SetRequestHeader "Content-Type", "application/json"
oRequest.Send strPayload
strLoginResponse = oRequest.responsetext
If InStr(strLoginResponse, "true") > 0 Then
MsgBox ("Data Syncing Done Sucessfully")
Else
MsgBox ("Data Syncing Failed")
End If
End Function