Validate the FindCertBySubjectE Method

Iterate over the certificates in the Local Machine Certificate Store and verify that FindCertBySubjectE is working correctly for each cert's SubjectE property.

' Iterate over each certificate in the local machine store
' and test the FindCertBySubjectE method
set ccs = CreateObject("ChilkatCertificate.ChilkatCreateCS")

' Open the local machine certificate store
set certStore = ccs.OpenLocalSystemStore()

numCerts = certStore.NumCertificates

for idx = 0 to numCerts-1
	set cert = certStore.GetCertificate(idx)
	if len(cert.SubjectE) > 0 then
		set cert2 = certStore.FindCertBySubjectE(cert.SubjectE)
		if cert2 is nothing then
			MsgBox "Error: Could not find " + cert.SubjectE
		else
			MsgBox "Found " + cert.SubjectE
		end if
	end if
next