在VB中编写解密程序，你可以使用多种方法，包括使用内置的加密函数、自定义加密算法或调用外部加密库。以下是一个简单的VB解密程序示例，它使用了一个自定义的加密和解密函数：
```vb
Module VBDecryptionModule
' 假设这是一个简单的异或加密算法
Private Function Encrypt（ByVal strSource As String, ByVal key As String） As String
Dim encrypted As String = ""
Dim i As Integer
For i = 1 To Len（strSource）
Dim charCode As Integer = Asc（Mid（strSource, i, 1））
Dim xorKey As Integer = Asc（Mid（key, （i Mod Len（key）） + 1, 1））
encrypted = encrypted & Chr（charCode Xor xorKey）
Next
Return encrypted
End Function
Private Function Decrypt（ByVal strEncrypted As String, ByVal key As String） As String
' 由于加密和解密使用相同的算法，我们可以直接重用Encrypt函数
Return Encrypt（strEncrypted, key）
End Function
Sub Main（）
' 用户输入加密的字符串和密钥
Dim encryptedText As String = InputBox（"请输入加密的文本："）
Dim encryptionKey As String = InputBox（"请输入加密密钥："）
' 解密字符串
Dim decryptedText As String = Decrypt（encryptedText, encryptionKey）
' 显示解密结果
MsgBox（"解密后的文本： " & decryptedText）
End Sub
End Module
```
在这个示例中，我们定义了两个函数：`Encrypt` 和 `Decrypt`。`Encrypt` 函数接受一个字符串和一个密钥，然后使用异或操作对字符串中的每个字符进行加密。由于加密和解密使用相同的算法，`Decrypt` 函数直接调用 `Encrypt` 函数并传入相同的密钥。
请注意，这个示例仅用于演示目的，实际应用中可能需要更复杂的加密算法以确保安全性。此外，密钥管理也是加密过程中的一个重要方面，应该妥善保管密钥，避免泄露。
如果你需要更高级的加密功能，可以考虑使用VB.NET或.NET Core中的加密库，如System.Security.Cryptography命名空间下的类，这些类提供了更强大和灵活的加密算法。
