Ciao, la linea in cui mida l'errore è:
Dim pippo As String = lista.SelectedItems.Item(0).SubItems(1).Text
me la da gialla da "pippo in poi".

L'eccezione sollevata mi sembra di capire che è :

" ArgumentOutOfRangeException non è stata gestita".

Spero di essere stato chiaro.
Grazie.