If Not IsNull(Me.Metin0) And (Me.Metin0 Like "*?@?*.?*" And Not (Me.Metin0 Like "*[ ,;]*")) Then MsgBox " mail adresi" Else MsgBox "mail adresi değil"
yada Not (Me.Metin0 Like "*[ ,;]*") yerine Me.Metin0 Like "*[! ,;]*"
aşağıdaki kodu deneyebilirsiniz