如何调用DES_EnCode函数

我从网上下载了Des_EnCode过程:

Public Sub DES_Decode(ByRef sCode() As Byte, ByVal sKey As String, ByRef bReturn() As Byte) 

用下面的方法调用,不能返回结果

Dm aryTmp() As Byte
Dim a() As Byte
    If txtKey.Text <> "" Then
        aryTmp = CByte(StrConv(txtSource.Text, vbFromUnicode))
        DES_Encode aryTmp, txtKey.Text, a
        txtTarget.Text = StrConv(a, vbUnicode)
    End If

现在需要对字符串进行Des加密,不知如何调用?

请各位高手指点,谢谢.