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 в соответствии с документацией, и вызвать функцию, когда потребуется
