الدالة count لو سمحتم

السلام عليكم ورحمة الله وبركاته

إليك أخى العزيز ماتريد

مرفق بالرد برنامج تضع له الكلمه والنص فيبحث عنها ويعطيك عدد التكرار

والكود كمان

أعتقد إن الكود واضح مشمحتاج تعليق . لكن لو محتاج قول ؟

رجــــــــاء . لاتنسانى من دعائـــك

Dim nStart As Integer
Dim nLoaper As Long
Dim nWordFind As Long
nStart = 1
nWordFind = 0
For nLoaper = 0 To Len(Text.Text)
    nStart = InStr(nStart, Text.Text, txtSearch.Text, vbTextCompare)
    If nStart = 0 Then Exit For
    nWordFind = nWordFind + 1
    nStart = nStart + Len(txtSearch.Text)
Next
MsgBox "عدد مرات تكرار الكلمة  : " & "  " & nWordFind, vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "Find"

Find_Word.zip

شكرا جزيلا اخى الفاضل وبالتوفيق

معذرة يا اخى لم افهم الكود ارجوا شرح بسيط اسفل كل سطر واود ان اعرفك اننى اريد تخزين هذا البيان الموجود فى text1 مثلا وفى نفس الوقت اريد قبل الانتقال الى text2 لاكمل البيانات يظهر لى كم مرة سجلت هذا الاسم

ارجوا ان لا اكون اثقلت عليك وجزاك الله خيرا