WinAPIの CryptBinaryToString をVB6から使う方法が分かりません。
　参考：MSDN(英語)
　ttp://msdn.microsoft.com/en-us/library/aa379887(v=VS.85).aspx

VB6で使う方はあまりいないようでサンプルを見つけられませんでした(海外サイトにも)
そこで翻訳サイトと辞書片手に自前で宣言文を書き起こし、呼び出しコードを実装してみたのですが、
以下のコードはうまく動かず途方にくれてます。(実行するとIDEごと落ちます)

英語は得意ではなく、何かを見落としているのだと思います。
間違いが分かる方いらっしゃいませんか？

'---------------------------------------
'※ 【警告】実行すると落ちます
'---------------------------------------
Private Enum ENUM_CRYPT_STRINGFlag
　　CRYPT_STRING_BASE64HEADER = &H0&
　　CRYPT_STRING_BASE64 = &H1&
　　CRYPT_STRING_BINARY = &H2&
　　CRYPT_STRING_BASE64REQUESTHEADER = &H3&
　　CRYPT_STRING_HEX = &H4&
　　CRYPT_STRING_HEXASCII = &H5&
　　CRYPT_STRING_BASE64_ANY = &H6&
　　CRYPT_STRING_ANY = &H7&
　　CRYPT_STRING_HEX_ANY = &H8&
　　CRYPT_STRING_BASE64X509CRLHEADER = &H9&
　　CRYPT_STRING_HEXADDR = &HA&
　　CRYPT_STRING_HEXASCIIADDR = &HB&
End Enum

'続く