جستجو در html

[f.nabavi]

سلام. من برای پیدا کردن متن خاص در صفحه html لود شده در webbrowser از کدی استفاده میکنم که باگ داره، اونم اینه که از ابتدای تگ body شروع به سرچ میکنه و اگه من بخوام "d" رو سرچ کنم، تمام d های تگ body هم نمایش داده میشن. کسی کدی داره که این مشکل رو به وجود نیاره؟

[majjjj]

خوب خود برنامه رو بزار اينجوري كه نميشه گفت چكار كني

[f.nabavi]

اینم کدی که دارم. s عبارتی هست که باید سرچ بشه...

Private Function WebPageContains(ByVal s As String) As Integer
Dim i As Long, HTMLElement
For i = 1 To wb1.document.all.length
Set HTMLElement = _
wb1.document.all.item(i)
If Not (HTMLElement Is Nothing) Then
If InStr(1, HTMLElement.innerHTML, _
s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function