VBA функция CryptBinaryToString из crypt32.dll для Base64 криптования EncodeBase64

Вот буквально недавно наткнулся на необходимость быстрого Base64 криптования и нашел решение которое работает. А, казалось бы..

Private Declare Function CryptBinaryToString Lib "crypt32.dll" Alias "CryptBinaryToStringA" _

(ByRef pbBinary As Any, ByVal cbBinary As Long, _
ByVal dwFlags As Long, ByVal pszString As String, _
ByRef pcchString As Long) As Long
Private Const CRYPT_STRING_BASE64 As Long = 1

Public Function EncodeBase64(targetBytes() As Byte) As String
Dim base64Length As Long
Dim base64String As String
Dim Ret As Long
Ret = CryptBinaryToString(targetBytes(0), UBound(targetBytes) + 1, CRYPT_STRING_BASE64, vbNullString, base64Length)
If Ret Then
base64String = Space(base64Length)
'Encode
Ret = CryptBinaryToString(targetBytes(0), UBound(targetBytes) + 1, CRYPT_STRING_BASE64, base64String, Len(base64String))
End If
EncodeBase64 = Mid(base64String, 1, base64Length - 3)
End Function