Something like:
Code:
    Text1 = Trim(Text1)
    If InStr(Text1, "@") = 0 Or InStr(Text1, ".") = 0 Or InStr("@.", Left$(Text1, 1)) > 0 Or InStr("@.", Right$(Text1, 1)) Then
        MsgBox "Invalid Email"
    End If
Aside from that you could strip out the Domain and Ping its Mail Server to verify the Domain is Valid.

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]