Help with AWS signature version 4 using chilkat's crypt2 ActiveX component

Hi

I've been trying to sign AWS requests using Chilkat's crypt2 ActiveX object

Amazon have a python example here:

http://docs.aws.amazon.com/general/latest/gr/sigv4-signed-request-examples.html

I'm trying to re-write this in VBscript using crypt2, however I can't get these Python functions working in VBScript:

def sign(key, msg):
    return hmac.new(key, msg.encode('utf-8'), hashlib.sha256).digest()

def getSignatureKey(key, dateStamp, regionName, serviceName):
    kDate = sign(('AWS4' + key).encode('utf-8'), dateStamp)
    kRegion = sign(kDate, regionName)
    kService = sign(kRegion, serviceName)
    kSigning = sign(kService, 'aws4_request')
    return kSigning

Here's my (not working) VBScript functions:

function sign_KeyBytes(bytekey, msg)
  crypt.HashAlgorithm = "sha256"
  crypt.Charset = "utf-8"
  crypt.SetHmacKeyBytes bytekey
  sign_KeyBytes = crypt.HashString(msg)
end function

function sign_KeyString(key, msg)
  crypt.HashAlgorithm = "sha256"
  crypt.Charset = "utf-8"
  crypt.SetHmacKeyString key
  sign_KeyString = crypt.HashString(msg)
end function

function getSignatureKey(key, dateStamp, regionName, serviceName)
  dim kDate : kDate = sign_KeyString("AWS4" + key, dateStamp)
  dim kRegion : kRegion = sign_KeyBytes(kDate, regionName)
  dim kService : kService = sign_KeyBytes(kRegion, serviceName)
  dim kSigning : kSigning = sign_KeyBytes(kService, "aws4_request")
  getSignatureKey = kSigning
end function

The VBScript only works if the required output is hex.

Can anybody help?

Cheers

Dave