(Excel) Get Certificate Subject Part by Name or OID

Demonstrates the GetSubjectPart method where a name or OID can be passed.

Download Excel Class Modules Chilkat Excel Class Modules

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert


success = cert.LoadByCommonName("myCert")
If (success = False) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

' This example demonstrates getting the SERIALNUMBER part of the subject,
' if one such part exists in the cert's subject.
' Not too many certicates include the serial number in the Subject.
' (Chilean issued certificates for SII is one such case where the SERIALNUMBER part exists within the Subject.)

serialNum = cert.GetSubjectPart("SERIALNUMBER")
If (cert.LastMethodSuccess = False) Then
    Debug.Print "No SERIALNUMBER part exists."
    Exit Sub
End If

Debug.Print serialNum

' We could also get the part by the OID.
' See https://oidref.com/2.5.4.5 for a list of OID's in the 2.5.4.* range..
' The OID for SERIALNUMBER is "2.5.4.5"
serialNum = cert.GetSubjectPart("2.5.4.5")
If (cert.LastMethodSuccess = False) Then
    Debug.Print "No SERIALNUMBER part exists."
    Exit Sub
End If

Debug.Print serialNum