Sub Mkontrol()
adsoy = trim(Tavsiye.gonderen.Value)
mail=trim(Tavsiye.mailadres.Value)
ekontrol1 = INSTR(1,mail,"@",1)
ekontrol2 = INSTR(1,mail,".",1)
if adsoy = "" then Msgbox "Adınız ve Soyadınız Yazılmamış" : Tavsiye.gonderen.focus : exit Sub
if Mail  = "" then Msgbox "Email Adresiniz Yazılmamış" : Tavsiye.mailadres.focus : exit Sub
if Ekontrol1 = 0 OR Ekontrol2 = 0 then  Msgbox "Email Adresiniz Yanlış" : Tavsiye.mailadres.focus :exit Sub
Tavsiye.submit
End Sub