Help using Crypto API with DES

I have a VB6 application running on Windows 2000 with which I'd like to
use the Crypto API to encrypt and decrypt info using triple DES.
Unfortunately, I'm a complete novice when it comes to cryptography and
am unable to get my code to work.

Could any of you security gurus please post some sample code (including
the required API declarations and constants) that illustrates how to
use the Microsoft Enhanced Cryptographic Provider v1.0 to
encrypt/decrypt a string using the triple DES algorithm? Thanks!