Yourls API от EXCEL VBA

Question

Я хочу использовать API сокращения URL YOURLS в Excel VBA.

Пока мой код:

Sub http()
    Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")  
    MyRequest.Open "GET", "http://www.example.net/sh/yourls-api.php" & "?" & "username=username" & "password=password" & "format=xml" & "action=shorturl" & "url=www.mylisturl.net"
    ' Send Request.
    MyRequest.Send
    'And we get this response
    Foglio1.Cells(10, 2) = MyRequest.ResponseText
End Sub

Спасибо