VB.NET (2005) İLE BİR CÜMLEDEKİ HARF,BOSLUK ve KELİME SAYISINI BULMA

[ravmon]

a = InputBox("cumleyi girin", "cumle")
c = Len(a)
LTrim(a)
For I = 1 To c
f = Mid(a, I, 2)
If f = Strings.Space(2) Then
d = d + 1
End If
Next
For I = 1 To c
f = Mid(a, I, 1)
If f = Strings.Space(1) Then
w = w + 1
Else
x = x + 1
End If
Next
MsgBox("cumledeki bosluk sayısı " + CStr(w))
MsgBox("cumledeki harf sayısı " + CStr(x))
MsgBox("cumledekı kelime sayısı " + CStr(w - d + 1))
d = 0
w = 0
x = 0