ExcelVBAで、bitbank APIを使って資産残高(assets)を取得したい

{"success":0,"data":{"code":20001}}　※20001 API認証に失敗しました

Option Explicit

' bitBank：口座残高を取得する～PrivateAPI
Public Sub bitBankAPI_Assets()

    Const API_KEY    As String = "***** API_KEY *****"
    Const API_SECRET As String = "***** SECRET_KEY *****"

    ' ▽ タイムスタンプを取得 ▽
    Dim timestamp   As String
    timestamp = DateDiff("s", "1970/1/1 9:00", Now)

    ' ▽ HMAC-SHA256形式の署名作成 ▽
    ' 　 ※文字列（「ACCESS-NONCE、リクエストのパス」 を連結させたもの）を 
    '      HMAC-SHA256 形式でAPIシークレットキーを使って署名作成

    ' キーとテキストのバイト配列を作成
    Dim keyBytes()   As Byte
    Dim textBytes()  As Byte
    keyBytes = StrConv(API_SECRET, vbFromUnicode)
    textBytes = StrConv(timestamp & "/v1/user/assets", vbFromUnicode)

    ' バイト配列のハッシュ値を取得
    Dim hmac        As Object
    Dim hashBytes() As Byte
    Set hmac = CreateObject("System.Security.Cryptography.HMACSHA256")
    hmac.Key = keyBytes
    hashBytes = hmac.ComputeHash_2(textBytes)
    Set hmac = Nothing

    '' 文字列に変換する
    Dim hashByte    As Variant
    Dim hash        As String
    For Each hashByte In hashBytes
        hash = hash & Right("0" & Hex(hashByte), 2)
    Next

    ' ▽ API呼び出し ▽

    ' Http Open
    Dim http        As New MSXML2.XMLHTTP
    http.Open "GET", "https://api.bitbank.cc/v1/user/assets", False

    ' HTTPリクエストヘッダーに付与
    http.setRequestHeader "ACCESS-KEY", API_KEY
    http.setRequestHeader "ACCESS-NONCE", timestamp
    http.setRequestHeader "ACCESS-SIGNATURE", hash
    http.setRequestHeader "Content-Type", "application/json"

    ' リクエストを送信
    http.send Null

    ' ▽ 結果表示 ▽
    Debug.Print http.responseText
End Sub