Slanje http request

Pozdrav svima.
Zamolio bih ako mi mozete pomoci u sljedece.
Trebam da posaljem odredjeni red u tabeli putem http request a i da iscitam isti respond.Dobio sam korisnicki nalog (user i password) i link na koji treba to da posaljem.Skidao sam kodove ali nisam uspio.Podatke iz tabele trebaju da budu prilagodjeni za json.
U svakom requst-u u zaglavlju trebaju biti podaci user i password.
Hvala unaprjed.
Pozdrav.

Private Sub Command11_Click()

Dim xmlhttp As New MSXML2.xmlhttp
Dim myurl As String
Dim user As String
Dim Password As String
Dim strJSONToSend As Variant

myurl = "http://111.111.111.11:81/XXXXX/api/integracija?ZahtjevId=0"

user = "someusername"
Password = "somepassword"

strJSONToSend = "{""type"": ""note"", ""title"": ""Alert"", ""body"": ""Lorem Ipsum Lorem Ipsum Lorem Ipsum.""}"

xmlhttp.Open "POST", myurl, False

xmlhttp.setRequestHeader "Content-Type", "text/json"
xmlhttp.setRequestHeader "Authorization", AuthCredentials
xmlhttp.setRequestHeader "Authorization", "Basic " + Base64Encode(user + ":" + Password)
xmlhttp.Send strJSONToSend

MsgBox (xmlhttp.responseText)
Me.txtOutput = xmlhttp.responseText
End Sub