Function getRequest(url As String) As String
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
With objHTTP
.Open "GET", url, False
.Send
End With
getRequest = objHTTP.ResponseText
End Function
Теперь у вас есть функция getRequest, на вход принимает url метода vk, функция находится в категории "Определенные пользователем"
Остается сгенерировать url в соответствии с документацией, и вызвать функцию, когда потребуется
выдает такую ошибку
{"error":{"error_code":5,"error_msg":"User authorization failed: method is unavailable with group auth.","request_params":[{"key":"oauth","value":"1"},{"key":"method","value":"wall.post"},{"key":"owner_id","value":"-170959530"},{"key":"message","value":"hello"},{"key":"v","value":"5.84"}]}}