(Visual Basic 6.0) 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).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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 New ChilkatCertStore

Dim readOnly As Long
readOnly = 1
Dim success As Long
success = certStore.OpenCurrentUserStore(readOnly)
If (success = 0) Then
    Debug.Print certStore.LastErrorText
    Exit Sub
End If

Dim emailAddr As String
emailAddr = "support@chilkatsoft.com"
Dim cert As ChilkatCert
Set cert = certStore.FindCertBySubjectE(emailAddr)
If (certStore.LastMethodSuccess <> 1) 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 <> 1) Then
    Debug.Print "No certificate found for " & emailAddr
    Exit Sub
End If

Debug.Print "Found: " & cert.SubjectDN