Visual Basic - ayuda funcion de encriptacion de datos

le agradesco que me envien alguna funcion de encriptacion de datos en visualbasic como encriptar una clave para luego guardarla en base de datos

En http://www.sevillaonline.com/ActiveX/vb5/ARCryptoLib.htm tienes una librería para bajar con varios métodos de encriptación algunos de ellos con clave. Tienes ejemplos también.