إضافة الكلمات المبحوث عنها إلى شجرة

هذا الكود يبحث في الملف ويضيف السطر الموجود فيه الكلمة المبحوث عنها لشجرة مع أربعين كلمة قبلها وبعدها.

المشكلة هي أنه لو كانت الكلمة المبحوث عنها مكررة في هذا السطر فلا تظهر إلا واحدة، أرجوا مساعدتكم ليمكن اظهار الكلمات المكررة

وشكرا

Public Sub SearchInFileRight(ByVal File As String, SStr As String, TV As TreeView)
On Error GoTo err
filename = File
FN = FreeFile
Open filename For Input As FN
MainName = "File" & C  ''''
	Do While Not EOF(FN)
		Ln = Ln + 1	 'Line Number
		Line Input #FN, LineX

		Result = InStr(UCase(LineX), UCase(SStr))

		If Result <> 0 Then	 'If Find any word
			MailN = MailN + 1
			If MailN = 1 Then
				TV.Nodes.Add , , MainName, filename
				C = C + 1
			End If
			Result2 = InStr(LineX, SStr) - 40
			If Result2 < 0 Then Result2 = 1
			MyString = Mid(LineX, Result2, 40)
		 TV.Nodes.Add MainName, 4, MainName & "Line" & Ln, "Line = " & Ln & " : " & MyString

		End If
	Loop
Close #FN
'				   Error Sub
err:
If Right(filename, 1) = "\" Then
Exit Sub
End If
		Exit Sub
End Sub