@ Varmı diye kontrol falan edecek

Merhaba,
textbox ın içinde @ karakteri varmı diye kontrol edecek, yoksa programı çalıştırmayı durduracak. Ama kapatmayacak?
Nasıl olur bu?
:?:

merhabalar.


sonuc = instr(1,text1.text,"@")
if sonuc = 0 then
msgbox "yazdığınız metinde @ yok."
Exit sub
end if


instr fonksiyonu şöyle çalışır :

instr([ Aramaya Başlanacak Karakter ], [ İçinde Arama Yapılacak Büyük Olan Metin ], [ Aranan Metin ])
eğer aranan metin'in içinde aradığınız harf yoksa fonksiyon 0 değeri döndürür. eğer varsa, kaçıncı sırada olduğunu gösterir.

saygılar.

Görkem Paçacı
[email protected]
[email protected]
www.olumlu.com[/img]

evet hallettim sağolun.