How to get this code work for Vb6 (AES Encrypting from Microsoft Web-site)

[Freesix]

Hi guys, this is a AES Encryption from Microsoft.

I need to get this code (Click here) working for Vb6, but I think Microsoft wrote it from Vb.Net, then I need it in Vb 6.