Используя переменные с setRequestHeader, почему они не работают?

Question

Я пытаюсь отправить Json на удаленный сервер, чтобы получить ответ Json (в основном я отправляю им данные, они выполняют расчеты на основе моих данных и отправляют обратно разные данные). Однако вместо получения данных сервер сообщает мне, что запрос не прошел проверку подлинности. Аутентификация включает в себя отправку строки в кодировке base64, имени пользователя и пароля вместе. Эти значения могут меняться, поэтому я использую переменные для передачи информации. Это не работает, однако, если я введу полностью закодированное значение в виде строки, оно работает.

Function GetAPdataPost(sSendHTML, sURL)
  dim apHTTP
  dim sHTTPResponse
  dim API_KEY
  dim API_PWD
  dim auth

  API_KEY     = "fred"
  API_PWD     = "barney"
  auth = Base64Encode(API_KEY