Private Sub CommandButton5_Click()
Dim strURL As String
Dim objHTTP
Dim myxml As String
myxml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<GeteBayOfficialTimeRequest>" & _
"<RequesterCredentials>" & _
"<eBayAuthToken>xxxTOKENxxx</eBayAuthToken>" & _
"</RequesterCredentials>" & _
"</GeteBayOfficialTimeRequest>"
Set objHTTP = CreateObject("Microsoft.xmlhttp")
objHTTP.Open "POST", strURL, False
objHTTP.SetRequestHeader "X-EBAY-API-COMPATIBILITY-LEVEL", " 721"
objHTTP.SetRequestHeader "X-EBAY-API-DEV-NAME", "xxxDEVIDxxx"
objHTTP.SetRequestHeader "X-EBAY-API-APP-NAME", "xxxAPPIDxxx"
objHTTP.SetRequestHeader "X-EBAY-API-CERT-NAME", "xxxCERTIDxxx"
objHTTP.SetRequestHeader "X-EBAY-API-SITEID", "77"
objHTTP.SetRequestHeader "X-EBAY-API-CALL-NAME", "GeteBayOfficialTime"
objHTTP.Send (myxml)
MsgBox (objHTTP.responsetext)
End Sub