How to read digital certificate from pdf document in vb.net

        Dim theForm As Acrobat.CAcroPDDoc
        Dim jso As Object

        theForm = CreateObject("AcroExch.PDDoc")
        theForm.Open("C:\Temp\Maru\DeclaracionJurada.pdf")
        jso = theForm.GetJSObject

        'Verifica que la firma sea valida

        Dim signatureOne = jso.getField("Signature2")
        Dim oState = signatureOne.SignatureValidate()

        Select Case oState
            Case Is = -1
                ListBox1.Items.Add("Estado : Sin Firma ")
            Case Is = 0
                ListBox1.Items.Add("Estado : Firma en blanco ")
            Case Is = 1
                ListBox1.Items.Add("Estado : No conoce el estado de la firma ")
            Case Is = 2
                ListBox1.Items.Add("Estado : Firma invalida ")
            Case Is = 3
                ListBox1.Items.Add("Estado : La firma es valida, pero la identidad del firmante no se pudo verificar ")
            Case Is = 4
                ListBox1.Items.Add("Estado : Firma e identidad son validas ")

        End Select

        'Extrae la info del firmante, nombre y fecha de la firma
        Dim signatureInformation = signatureOne.signatureInfo

        ListBox1.Items.Add("Firmante " & signatureInformation.name)
        ListBox1.Items.Add("Fecha " & signatureInformation.Date)

        'Extrae la info del certificado
        Dim signatureCertificate = signatureInformation.certificates
        ListBox1.Items.Add("Emitido a : " & signatureCertificate(0).subjectDN.serialNumber)
        ListBox1.Items.Add("Numero de Serie : " & signatureCertificate(0).serialNumber)
        ListBox1.Items.Add("Valido desde : " & signatureCertificate(0).validityStart)
        ListBox1.Items.Add("Valido hasta : " & signatureCertificate(0).validityEnd)
        ListBox1.Items.Add("Para : " & signatureCertificate(0).subjectDN.o)
        ListBox1.Items.Add("Tipo : " & signatureCertificate(0).subjectDN.ou)
        ListBox1.Items.Add("Emitido Por : " & signatureCertificate(0).issuerDN.cn)

Dim theForm As Acrobat.CAcroPDDoc
        Dim jso As Object

        theForm = CreateObject("AcroExch.PDDoc")
        theForm.Open("C:\Temp\Maru\DeclaracionJurada.pdf")
        jso = theForm.GetJSObject

        'Verifica que la firma sea valida

        Dim signatureOne = jso.getField("Signature2")
        Dim oState = signatureOne.SignatureValidate()

        Select Case oState
            Case Is = -1
                ListBox1.Items.Add("Estado : Sin Firma ")
            Case Is = 0
                ListBox1.Items.Add("Estado : Firma en blanco ")
            Case Is = 1
                ListBox1.Items.Add("Estado : No conoce el estado de la firma ")
            Case Is = 2
                ListBox1.Items.Add("Estado : Firma invalida ")
            Case Is = 3
                ListBox1.Items.Add("Estado : La firma es valida, pero la identidad del firmante no se pudo verificar ")
            Case Is = 4
                ListBox1.Items.Add("Estado : Firma e identidad son validas ")

        End Select

        'Extrae la info del firmante, nombre y fecha de la firma
        Dim signatureInformation = signatureOne.signatureInfo

        ListBox1.Items.Add("Firmante " & signatureInformation.name)
        ListBox1.Items.Add("Fecha " & signatureInformation.Date)

        'Extrae la info del certificado
        Dim signatureCertificate = signatureInformation.certificates
        ListBox1.Items.Add("Emitido a : " & signatureCertificate(0).subjectDN.serialNumber)
        ListBox1.Items.Add("Numero de Serie : " & signatureCertificate(0).serialNumber)
        ListBox1.Items.Add("Valido desde : " & signatureCertificate(0).validityStart)
        ListBox1.Items.Add("Valido hasta : " & signatureCertificate(0).validityEnd)
        ListBox1.Items.Add("Para : " & signatureCertificate(0).subjectDN.o)
        ListBox1.Items.Add("Tipo : " & signatureCertificate(0).subjectDN.ou)
        ListBox1.Items.Add("Emitido Por : " & signatureCertificate(0).issuerDN.cn)