(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' 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 Chilkat.CertStore

Dim readOnly As Boolean = True
Dim success As Boolean = certStore.OpenCurrentUserStore(readOnly)
If (success = False) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
End If


Dim emailAddr As String = "support@chilkatsoft.com"
Dim cert As Chilkat.Cert = certStore.FindCertBySubjectE(emailAddr)
If (certStore.LastMethodSuccess <> True) Then
    Debug.WriteLine("No certificate found for " & emailAddr)
    Exit Sub
End If


Debug.WriteLine("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"
cert = certStore.FindCertBySubjectE(emailAddr)
If (certStore.LastMethodSuccess <> True) Then
    Debug.WriteLine("No certificate found for " & emailAddr)
    Exit Sub
End If


Debug.WriteLine("Found: " & cert.SubjectDN)