VBA 授权 oauth2 API

Question

已经被困在这个问题上好几天了。尝试从具有 oauth2 身份验证的 API 获取访问令牌。

但我不断收到“401 未经授权”、“需要完全身份验证”

我的猜测是我做错了什么

 .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)