....secondo me la condizione di uscita deve essere

TypeName(mioItem) = Nothing

e non

TypeName(mioItem) = "Nothing"


...trovo strano che OutLook ritorni un valore stringa.... secondo me ti ritorna un oggetto nullo...