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..
Yapılışı;
Button 1 Yazılacaklar;
[code lang=”vbnet”]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
[/code]