Direi che dovrebbe bastare una

stringa = stringa & ", " & Trim(lstCertificati.List(i))


P.S. La

Else
Exit Sub

non ha senso ... puoi eliminare le due righe

P.P.S. Unire una stringa vuota "" alla fine di una stringa non ha senso ... nella

& stringa & ""

basta

& stringa