كيف استطيع عد كلمة معينة فى richtext ؟

Dim sx As String
sx = RichTextBox1.Text 

Dim sWord As String, sCount As Integer
sWord = "123"   ' الكلمة التي تبحث عنها والتي تريد عدها

sCount = (Len(sx) - Len(Replace(sx, sWord, ""))) / Len(sWord)
MsgBox sCount

ممكن توضح اكثر اخي ؟؟

هل تقصد ان تعد الاحرف ؟

مبرمج مبتدا كتب:

هل تقصد ان تعد الاحرف ؟

لا يقصد عدد مرات تكرار (ظهور) كلمة معينة, وهو بالضبط ما يقوم به كود الأخ طارق

السلام عليكم

طريقة الاخر الكريم مبتكرة وجميلة

حقيقة إنها طريقة رائعة عمق في التفكير

إن كان علي فأنا أستعمل هذه الطريقة وهي جيدة ولن أغيرها رغم إعجابي بالفكرة

Function CountStirng(Text As String, ToCount As String)

Dim sCounter As Long
Dim sFind As Long
Do
DoEvents
sFind = InStr(sFind + 1, Text, ToCount)
If sFind = 0 Then Exit Do
sCounter = sCounter + 1

Loop

MsgBox sCounter, vbInformation, "Count"
End Function

لا تحتاج إلى أي شرح