Dim crt As Certificate
        crt = ValidCerts.Item(cboCerts.SelectedIndex + 1)

        Dim TSAAddress As String = TextBox2.Text

        Dim s As New CPSigner With {
            .Certificate = crt,
            .Options = CAPICOM_CERTIFICATE_INCLUDE_OPTION.CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN,
            .TSAAddress = TSAAddress
        }
        Dim sd As New CadesSignedData With {
            .ContentEncoding = CADESCOM_CONTENT_ENCODING_TYPE.CADESCOM_BASE64_TO_BINARY,
            .Content = Convert.ToBase64String(IO.File.ReadAllBytes(TextBox1.Text))
        }

        Dim sign As String = sd.SignCades(s, CADESCOM_CADES_TYPE.CADESCOM_CADES_T, True, CAdESCOM.CAPICOM_ENCODING_TYPE.CAPICOM_ENCODE_BASE64)

        IO.File.WriteAllBytes(TextBox1.Text & ".sig", Convert.FromBase64String(sign))

Подробная информация об использовании оперативной 
(JIT) отладки вместо данного диалогового 
окна содержится в конце этого сообщения.

************** Текст исключения **************
System.Runtime.InteropServices.COMException (0x80004005): Неопознанная ошибка
   в CAdESCOM.ICPSignedData5.SignCades(Object Signer, CADESCOM_CADES_TYPE CadesType, Boolean bDetached, CAPICOM_ENCODING_TYPE EncodingType)