在网上下载一个VB 写的Des加密模块，不知道如何调用，（源代码：http://www.qwin.net/vbdes.txt），函数形式如下：
加密：
Public Sub DES_Encode(ByRef sCode() As Byte, ByVal sKey As String, ByRef bReturn() As Byte)
解密：
Public Sub DES_Decode(ByRef sCode() As Byte, ByVal sKey As String, ByRef bReturn() As Byte)
调用程序如下：
Private Sub Command10_Click()
Dim StrSource() As Byte
Dim StrDest() As Byte
Dim StrJiemi() As Byte
Dim StrKey As String
StrKey = "12345678" '密钥
StrSource = StrConv("待加密文字", vbFromUnicode)
Call DES_Encode(StrSource, StrKey, StrDest)
MsgBox StrConv(StrDest, vbUnicode) '加密后
Call DES_Decode(StrDest, StrKey, StrJiemi)
MsgBox StrConv(StrJiemi, vbUnicode) '解密后
End Sub
总是无法调用，加密或解密，结果都是空。
