codice:
Do Until mioItem = Nothing
 If trim(ucase(Left(mioItem, 5))) = "PROVA" Then 
   mioItem.Delete
   Set mioItem = CartellaAppuntamenti.Items.GetNext
 end if
Loop
:adhone: