Find characters on textbox

[Sawamura]

Hi all...
I got problem here..
I want to search how much a certain characters in words in text box.
Please help me to solve this...

[Sawamura]

there are two textbox, first textbox for words and other for current character.

Any help will appreciated greatly.

[Jx_Man]

try this following code :
First Textboxt to input words = textbox2
Second to input certain char = textbox1
Button to execute and label to show result.

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim jmlText, jmlChar, i As Integer
        jmlChar = 0 
        jmlText = Len(TextBox2.Text) 
        For i = 0 To jmlText 
            TextBox2.Focus()
            TextBox2.SelectionStart = i
            TextBox2.SelectionLength = 1
            If TextBox2.SelectedText = TextBox1.Text Then  
                jmlChar = jmlChar + 1 '
            End If
        Next
        Label1.Text = "You have " & jmlChar & " Character " & TextBox1.Text
End Sub

[Sawamura]

Thank you for reply jx_man.
This code works like a charm.