VBA Авторизация oauth2 API

Question

Застрял в этом на несколько дней.Пытаюсь получить токен доступа от API с аутентификацией oauth2.

Но я продолжаю получать '401 Unauthorized', "Требуется полная аутентификация"

Я догадываюсь, что я делаю что-то не так с

 .SetRequestHeder "Authorization", "basic " + (base64 encoded)

Вот код на данный момент: (работал с другим API)

Username = "myusername"
Password = "myclientsecret"

PasswordnUsername = Password & ":" & Username

    argumentString = "?grant_type=password&username=myusername&password=mypassword"

Set xmlhttp = CreateObject("MSXML2.XMLHTTP.6.0")
    xmlhttp.Open "POST", "https://api.url/partner/oauth/token", False
    xmlhttp.SetRequestHeader "Authorization", "basic " + mdl_API_MB_ACCESS_TOKEN.Base64Encode(PasswordnUsername)
    xmlhttp.SetRequestHeader "x-api-key", "myxapicode"
    xmlhttp.Send (argumentString)