if not isnumeric(metinkutusu.text) then msgbox "sadece sayısal veri girilebilir" olabilir
metin değiştiğinde yada çıkıldığında olayına