VB中调用DES加密函数的有关问题

VB中调用DES加密函数的问题
我在网上拷贝了DES加密解密的函数,这个是我拷贝的函数地址 http://dev.21tx.com/2004/11/05/10515.html，但是在调用这个函数时却没有得到任何值，请大虾们帮我看看是哪出了问题，这是调用的过程。

VB code

Public Sub TripleDES_DoubleKEY(InData As String, KEY As String, OutData As String)Dim KeyL As StringDim KeyR As StringDim DESEntry() As ByteDim DESResult() As ByteKeyL = Left(KEY, 16)KeyR = Right(KEY, 16) DESEntry = StrConv(InData, vbUnicode) DES_Encode DESEntry, KeyL, DESResultDESEntry = StrConv(DESResult, vbUnicode)DES_Decode DESEntry(), KeyR, DESResult()DESEntry = StrConv(DESResult, vbUnicode)DES_Encode DESEntry(), KeyL, DESResult()OutData = StrConv(DESResult, vbUnicode)    End Sub