Module Module1
    'Option Explicit On
        Const CAPICOM_CURRENT_USER_STORE = 2
    Const CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = 1
    Const CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY = 6
    Const CAPICOM_PROPID_KEY_PROV_INFO = 2
    Function GetSignerCertificate(Thumbprint)
        GetSignerCertificate = Nothing
        Dim oCert
        Dim oStore
        Dim Certificates
        oStore = CreateObject("CAdESCOM.Store")
        oStore.Open(CAPICOM_CURRENT_USER_STORE)
        Certificates = oStore.Certificates.Find(CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY,
         CAPICOM_PROPID_KEY_PROV_INFO)
        For Each oCert In oStore.Certificates
            If oCert.Thumbprint = Thumbprint Then  'SerialNumber
                GetSignerCertificate = oCert
                Exit For
            End If
        Next
    End Function

    Sub Main()


        Dim oSigner
        oSigner = CreateObject("CAdESCOM.CPSigner")
        ' Укажите правильный серийный номер сертификата.
        Dim Thumbprint : Thumbprint = "F46D05ED009190AC35F85308371F2CFD73672917"
        ' Укажите правильный адрес службы штампов времени.
        Dim sTSAAddress : sTSAAddress = "https://www.cryptopro.ru/ocsp/ocsp.srf"
        Dim Certificate : Certificate = GetSignerCertificate(Thumbprint)
        oSigner.Certificate = Certificate
        oSigner.TSAAddress = sTSAAddress

        Dim oSignedData
        Dim oSettings
        oSignedData = CreateObject("CAdESCOM.CadesSignedData")
        oSignedData.Content = "Some very significant message"
        Dim sSignedData
        sSignedData = oSignedData.Sign(oSigner, False)
        Console.WriteLine(sSignedData)
        Console.ReadLine()

    End Sub
End Module

var oSigner = cadesplugin.CreateObject("CAdESCOM.CPSigner")
oSigner.Certificate = oCertificate

Imports System
Imports System.Runtime.InteropServices

Module Example

    ' Use DllImport to import the Win32 MessageBox function.
    <DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
    Function MessageBox(ByVal hwnd As IntPtr, ByVal t As String, ByVal caption As String, ByVal t2 As UInt32) As Integer 
    End Function 


    Sub Main()
        ' Call the MessageBox function using platform invoke.
        MessageBox(New IntPtr(0), "Hello World!", "Hello Dialog", 0)
    End Sub 

End Module