[marine]

Buenas , esta es la parte de código que uso para el certificado por si te ayuda

Dim certificado As System.Security.Cryptography.X509Certificates.X509Certificate2 = SII.ObtieneCertificadoDigital()


Public Shared Function ObtieneCertificadoDigital() As System.Security.Cryptography.X509Certificates.X509Certificate2


Dim store As System.Security.Cryptography.X509Certificates.X509Store = New System.Security.Cryptography.X509Certificates.X509Store("My")

store.Open(System.Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)
Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2
Dim cif As String = obtieneCIFPresentadorSII()
If cif <> "" Then
For Each certificado In store.Certificates
For Each subject In certificado.Subject.Split(",")
If subject.Contains(WWEMPCIF) Then

Return certificado

End If
Next
Next
End If

Return CertificadoCorrecto
End Function