Ciao ragazzi
tempo fa un collega del forum mi aveva gentilmente postato un codice che mi permetteva di negare alcune parole dopo la lettera "@", qui sotto vi posto il codice:

Private Sub EMAIL_LostFocus()
Dim ATpos As Long
Dim i
If EMAIL.Text = "" Then
Else
'If n < List1.ListCount Then List1.ListIndex = List1.TopIndex + n

ATpos = InStr(1, EMAIL.Text, "@")
If ATpos = 0 Or Mid$(EMAIL.Text, ATpos + 1) <> "libero.it" Then
If ATpos = 0 Or Mid$(EMAIL.Text, ATpos + 1) <> "alice.it" Then

MsgBox "Puoi inserire solo indirizzi di posta con questi indirizzi:" & vbCr & vbCr & "Esempio:" & vbCr & "info@libero.it" & vbCr & "info@alice.it", vbCritical, "Errore"
EMAIL.SetFocus
Exit Sub
End If
End If
End Sub

...quello che volevo chiedervi, nel caso ci fosse una lista di parole in una flex anzichè scriverlo nel codice, come si potrebbe fare?

Spero di essere stato abbastanza chiaro.
Claudio