Использование SignMem

Накидали вот такой вот скриптик

      On Error Resume Next
      Err.Clear
      Dim errText
      Dim Crypt
      Dim SignParam
      Set Crypt = CreateObject("PKI.VCERT")
      If Crypt is Nothing Then
        MsgBox "Ошибка загрузки объекта PKI.VCERT", 0, "Ошибка"
      End If
     Dim sign_out2       
       Crypt.Initialize "ZK", 64
     msgbox Err.Number
      If Err.Number=0 Then
          Set SignParam=CreateObject("PKI.SignParam")
          SignParam.flag = 2
          Set fso = CreateObject("Scripting.FileSystemObject")
          Set f = fso.OpenTextFile("c:\temp\1.txt", 1, True)
          BufStr=f.ReadAll
          f.close
          Crypt.Signmem SignParam, BufStr, Empty, sign_out2
         Set f = fso.OpenTextFile("c:\temp\122.txt", 1, True)
          F.WRITE=sign_out2
          F.close
          If Err.Number=0 Then
              MsgBox "OK", 0, ""
          End If                                                                     
      Else
          Crypt.GetPKIErrorTextVBS Err.number, errText
          MsgBox errText, 0, "Ошибка"
      End If

      Set SignParam = Nothing
      Set Crypt = Nothing

  Но результата нет т