Encriptar Mi Proyecto

El proyecto tiene 4 formularios y un módulo bas.
El mismo inicia mediante un procedimiento Sub Main que está ubicado en el módulo bas. Dentro del Sub Main primero lee del registro si hay unacontraseña. Si la hay, carga el formulario de Login que es el siguiente:
 Formulario de Login

 
Al presionar el botón Entrar, se envía como parámetro a la función llamada " Login ", el password escritoen el Textbox. La función retorna True o False si es correcta o no.
Function Login(PassWord As String) As Boolean
Si la contraseña es correcta, descarga el formulario de Loign y se carga elformulario principal del programa.
Formulario para cambiar la Clave
Para cambiar la contraseña, hay un formulario similar al anterior llamado frmCambiarClave que es el siguiente:
 

En este formulario,al presionar Aceptar se llama a la función Cambiar_Password
'Función que cambia el Password (Recibe la contraseña vieja, contraseña y confirmación)'------------------------------------------------------------------------
Function Cambiar_Password(Old_Password As String, _
New_Password As String, _Confirm_Password As String) As Boolean 
 La función también es de tipo Boolean, y retorna True si se han ingresado los datos correctos o False si no soncorrectos, por ejemplo si la contraseña vieja no coincide.
 Eliminar la clave
Para eliminar la clave hay una Sub muy simple llamada Eliminar_Password
 Formulario para crear un nuevo Password
Esteformulario se llama FrmNuevoPassword, y la función que usa para crear y establecer la nueva clave se llama Nuevo_Password que tiene dos parámetros:
Function Nuevo_Password(El_Password As String, PassConfirmAs String) As Boolean
Si el password y la confirmación enviadas son correctas, la función devuelve True y añade la clave al registro, de lo contrario devuelve False
 Módulo
Por último el módulo...