il codice fiscale è sempre di 16 caratteri

quindi alla query devi passare il
codice:
right$(Trim$(list1.list(indice)),16)
p.s.: che cavolo è list1.text????