If InStr(b, "@") <> 0 _And Len(b) - InStr(b, ".") > 1 And Len(b) - InStr(b, ".") < 4 _And InStr(1, b, "ftp", vbTextCompare) = 0 _And InStr(1, b, "http://", vbTextCompare) = 0 _And InStr(1, b, "www.", vbTextCompare) = 0 _Then MsgBox "Это точно мыло"