codice:
Private Sub Text1_Validate(Cancel As Boolean)
    Dim ATpos As Long
    ATpos = InStr(1, Text1.Text, "@")
    If ATpos = 0 Or Mid$(Text1.Text, ATpos + 1) <> "libero.it" Then
        MsgBox "Puoi inserire solo un indirizzo di posta @libero.it.", vbCritical
        Cancel = True
    End If
End Sub