Originariamente inviato da vr-claudio
Ciao carissimo icecube_HT
in tanto grazie mille come al solito per la tua risposta sempre molto preziosa, ma ho guardato il tuo codice e dovrebbe essere al contrario, cioè se dopo la @ non si scrive almeno una delle voci presente nella List1 non è possibile effettuare nulla.

Grazie mille
Claudio
Infatti avevo evidenziato in maiuscolo "parole" NEGATE , perche' cosi' avevi scritto, anche se nel codice era il contrario , ma mi sembrava cosi' ovvia la modifica... :
codice:
Private Function ControllaIndirizzi(ByVal Email As String) As Boolean
   Dim i As Integer
   Email = UCase$(Email)
   If Email Like "?*@?*.?*" Then    'l'indirizzo deve essere del tipo:  x@x.x
      For i = 0 To List1.ListCount - 1
         If Email Like "?*@" & UCase$(List1.List(i)) Then ControllaIndirizzi = True: Exit Function
      Next
    End If
End Function