Ho sostituito, ma non funziona. Non mi dà il cognome (1^ colonna);

Printer.Print Space(6) & "Cognome : " & LvSearch.ListItems(i).ListSubItems(1).Text

ripete il Nome nel .ListSubItems(1).Text e .ListSubItems(2).Text al terzo evidenzia l'errore di indice esaurito.
In particolare in LvSearch.ListItems(i) mi segnala "Conflitto" ? VVoVe: