在VB（Visual Basic）中为子程序添加密码，可以采用以下几种方法：
使用现成的软件狗或加密包
购买现成的软件狗或加密包，这些产品通常提供较高的安全性，并且使用起来较为方便。
读取硬盘驱动器的序列号
使用Windows API的`GetVolumeInformation`函数读取硬盘驱动器的序列号，并将其保存起来。在程序启动时，检查当前硬盘序列号是否与保存的序列号匹配，如果不匹配则拒绝运行。
在程序启动时加入密码输入
在程序启动时，通过`InputBox`函数提示用户输入密码，并将输入的密码与预设密码进行比较。如果密码错误，则显示错误信息并退出程序。
使用文件加密
对数据文件进行加密，将密码转化为ASCII码，然后使用异或运算将密码与文件内容进行加密。这种方法需要编写额外的加密和解密函数，并在程序中调用这些函数。
使用第三方加密工具
可以使用第三方加密工具或库，如CDLL5.dll和Module1，来为程序添加加密功能。这些工具通常提供较为高级的加密算法和更强大的安全性。
建议
选择合适的加密方法：根据项目需求选择合适的加密方法，如果对安全性要求较高，建议使用现成的软件狗或加密包，或者采用第三方加密工具。
保护密码安全：在程序中处理密码时，要确保密码的安全性，避免密码在代码中直接显示或存储在不安全的地方。
测试加密和解密功能：在正式使用前，要充分测试加密和解密功能，确保其正确性和可靠性。