Kullanıcı tarafından girilen kelimede rakam varsa program hata vericek.
Program Tek buttontan oluşuyor ve ona tıklandığında kullanıcının kelime girmesini sağlayacak daha sonra kelimede rakam varsa program hata mesajı verecek..
Button 1 Yazılacaklar;
Dim ad As String
ad = InputBox("Adınız")
Dim i
For i = 0 To ad.Length - 1
If Not Char.IsLetter(ad.Chars(i)) Then
MsgBox("Dikkat:İsminizde harf olmayan karakterler bulundu.")
Exit Sub
End If
Next
