Kullanıcı tarafından girilen cümlenin kaç kelimeden oluştuğunu yazan programı yapalım.. 
Tek buttondan oluşan ve buttona tıklayınca kullanıcıdan cümle girilmesini isteyecek kullanıcı cümleyi girdikten sonra msgbox’ta kaç kelimeden oluştuğunu gösteren programın yapımına başlayalım..
Program Tek Buttondan oluşacak..
1.Buttona Yazılacaklar;
[code lang=”vbnet”]Dim ad As String
Dim a As Integer
ad = InputBox("Kelimeyi giriniz…")
Dim sayac As Integer
sayac = 1
For a = 0 To ad.Length – 1
If ad.Chars(a) = " " Then
sayac = sayac + 1
End If
If ad.Length = sayac = 2 Then
End If
ad = ad.ToUpper
Next
MsgBox("cümleniz" & " " & sayac & " " & "kelimeden oluşuyor")
MsgBox("cümleniz" & " " & ad)[/code]