Bir butona tıklayınca&෕örn:hesapla butonu&ුharf vb.şeyler girilmişse hata verir!! Private Sub command1_Click() if Trim(Str(Val(Text1.text)))<>Text1.text then Msgbox("Lütfen Geçerli Bir Sayı Giriniz!!!") End if End Sub