طريقة البحث عن جمله معينه داخل ملف نصي

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

مادام سؤالك واضح ومفهوم فهذا مثال لك لفتح الملف والبحث بداخله

أرجو أن يفيدك

Private Sub Form_Load()
Text1 = "welcome to vb"  'النص المراد
End Sub


Private Sub Command1_Click()
Dim eee As String, File As Long
Dim i As Long, ss As String, sss As String

sss = "c:\1.txt"  'مسار الملف

eee = Space$(FileLen(sss))   'حجم الملف

File = FreeFile 'ملف جديد

Open sss For Binary As File
	Get #File, 1, eee
Close #File

For i = 1 To Len(eee)
	ss = Right(Mid(eee, 1, i), Len(Text1))
		If ss = Text1 Then
			If MsgBox("تم العثور على الكلمه المطلوبه هل تريد الاستمرار ام لا", vbYesNo) = vbYes Then
			Else
			MsgBox "خروج من البحث"
			Exit For
			End If
		End If
Me.Caption = i
DoEvents
Next

MsgBox "إنتهى البحث"
'مع تحيات عبد العزيز اليوسفي - منتديات الفريق العربي للبرمجة
End Sub