Come al solito siete grandi
Grazie mille ho risolto sia con :

1)If List1.ListItems.Count > 0 Then

che con

2)On Error Resume Next

Grazie Ancora un saluto speciale