Sub Button1_Click()
    Const sUrl As String = "https://api.vk.com/method/users.get?user_ids=1,maksim,2,anna"

    Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    With oRequest
        .Open "GET", sUrl, True
        .SetRequestHeader "Content-Type", "application/json; charset=UTF-8"
        .Send ""
        .WaitForResponse
        Cells(1, 1) = .ResponseText
    End With
End Sub