Buongiorno a tutti!

Ho un problema con Outlook e VB6.
Ho creato una procedura in vb per cancellare dal calendario di Outlook tutti gli appuntamenti che avessero come prima parola "Prova".
La procedura parte e cancella i primi 15-20 appuntamenti, dopodichè va in loop e io non capisco perchè.

questo è il codice:
codice:
Private Sub cmdEliminaProve_Click()

        Dim mioItem
        Set mioItem = CartellaAppuntamenti.Items.GetFirst
        
        Do Until TypeName(mioItem) = "Nothing"
            If Left(mioItem, 5) = "Prova" Then mioItem.Delete       
            Set mioItem = CartellaAppuntamenti.Items.GetNext
        Loop
        
End Sub
dove
CartellaAppuntamenti: Cartella "Calendario" di Outlook

Praticamente, da quello che vedo durante il debug, non esegue l'istruzione "CartellaAppuntamenti.Items.GetNext";

voi avete suggerimenti?

Ringrazio tutti di cuore!