(Excel) Find Certificate for Email Address in Current-User Certificate Store (Windows-Only)

This is a Windows-only example to find a certificate for a given email address in the current-user certificate store (located in the Windows Registry).

Download Excel Class Modules Chilkat Excel Class Modules

' This is a Windows-only example because it lists the certificates
' stored in the Windows Current User Certificate Store located in the
' Windows Registry.

Dim certStore As Chilkat.CertStore
Set certStore = Chilkat.NewCertStore


readOnly = True

success = certStore.OpenCurrentUserStore(readOnly)
If (success = False) Then
    Debug.Print certStore.LastErrorText
    Exit Sub
End If


emailAddr = "support@chilkatsoft.com"

Set cert = certStore.FindCertBySubjectE(emailAddr)
If (certStore.LastMethodSuccess <> True) Then
    Debug.Print "No certificate found for "; emailAddr
    Exit Sub
End If

Debug.Print "Found: "; cert.SubjectDN

' It should be case-insensitive, however it was found not to be.
' The case-insensitive search is fixed starting in Chilkat v9.5.0.65.
emailAddr = "SUPPORT@chilkatsoft.com"
Set cert = certStore.FindCertBySubjectE(emailAddr)
If (certStore.LastMethodSuccess <> True) Then
    Debug.Print "No certificate found for "; emailAddr
    Exit Sub
End If

Debug.Print "Found: "; cert.SubjectDN