Carrega Certificados - Exemplo em vb.net

'carrega todos certificados pessoais, para o usuário logado, existente no windows certificates store
Dim store As X509Store = New X509Store(StoreName.My, StoreLocation.CurrentUser)

'abre o store
store.Open(OpenFlags.ReadOnly)
        
'para cada certificado existente
Dim numCerts As Integer = store.Certificates.Count


'laço com todos certificados
Dim i As Integer
For i = 0 To numCerts - 1 Step i + 1

 'adiciona a um listbox                      .ListBox1.Items.Add(store.Certificates(i).GetNameInfo(X509NameType.Si   mpleName, False))                      
 ListBox1.Items(i) = store.Certificates(i).Subject


Next


'fecha repositório
store.Close()