Here is a sample using your data. I used Debug.print but you could use MsgBox.
Code:
' ----------------------------------------------------------------
' Procedure Name: testhttp
' Purpose:To test Winhttp to get a response from binance
' from Timaxusa @https://www.accessforums.net/showthread.php?t=71717
' Procedure Kind: Sub
' Procedure Access: Public
' Author: Jack
' Date: 22-Apr-18
' ----------------------------------------------------------------
Sub testhttp()
Dim resp As String
Dim url As String
10 url = "https://api.binance.com/api/v1/time"
Dim Req As New WinHttpRequest
20 Req.Open "GET", url, False 'set up request structure
30 Req.Send 'send the request to binance
40 resp = Req.responseText
50 Debug.Print "Resp is: " & resp
End Sub
Result:
Code:
Resp is: {"serverTime":1524399541325}