Sub Макрос1()

Dim hRequest As Object

Set hRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
hRequest.SetTimeouts 200000, 200000, 200000, 200000
urlapi = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Фkljbkyihgvkyv"
hRequest.Open "GET", urlapi, False
hRequest.Send

End Sub

Sub Макрос2()

Dim requestString As String
Dim request As MSXML2.ServerXMLHTTP60

requestString = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Oфbject to request"
Set request = New ServerXMLHTTP60
request.Open "GET", requestString, False
request.Send

End Sub