Find How Many Specific Char in Text

[EkoX]

Hello All,

As the title..
Does any one know how to find how many specific character in a text?

Best Regard
Eko.

[Jx_Man]

Try This :
Text1 is filled by any text or words
Text2 is filled by char to find.

Private Sub Command1_Click()
    Dim CharCount, i As Integer
    CharCount = 0
    For i = 0 To Len(Text1.Text)
        Text1.SetFocus
        Text1.SelStart = i
        Text1.SelLength = 1
        If Text1.SelText = Text2.Text Then 
            CharCount = CharCount + 1 sesuai
        End If
    Next
    MsgBox "You have " & CharCount & " Character " & Text2.Text
End Sub

[EkoX]

Working like a charm..
Thank you for helping sir.

[EkoX]

Also this thread already solved.
Thanks once again.

[Jx_Man]

You're Welcome.
Happy Coding