Vısual studio 2005 ile Cümledeki Harf -Karakter-Sayı Bulma

[left][left]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sayi(10) As String
        Dim karakter(10) As String
        Dim i, j, k, rakam, karakterr, harf As Integer
        Dim a, b As String
        k = Len(TextBox1.Text)
        a = TextBox1.Text


        sayi(0) = "0"
        sayi(1) = "1"
        sayi(2) = "2"
        sayi(3) = "3"
        sayi(4) = "4"
        sayi(5) = "5"
        sayi(6) = "6"
        sayi(7) = "7"
        sayi(8) = "8"
        sayi(9) = "9"

        karakter(0) = "!"
        karakter(1) = "*"
        karakter(2) = "/"
        karakter(3) = "?"
        karakter(4) = " "
        karakter(5) = "%"
        karakter(6) = "^"
        karakter(7) = "+"
        karakter(8) = "-"
        karakter(9) = ","
        For i = 1 To k
            b = Mid(a, i, 1)
            For j = 0 To 9
                If b = sayi(j) Then
                    rakam = rakam + 1


                ElseIf b = karakter(j) Then

                    karakterr = karakterr + 1
                End If
            Next
        Next
        harf = k - (rakam + karakterr)
        MsgBox("Cümledeki Rakamların sayısı:" & "" & rakam)
        MsgBox("Cümledeki Harf sayısı:" & "" & harf)
        MsgBox("Cümledeki Karakter sayısı:" & "" & karakterr)


    End Sub[/left][/left]