ben sitenin icinde kactane text1.text e yazdığım kelime (orn; klavye) var onu arayıp labele aktarmak istiyorum. web sitesinde yazı arama kodum var ;

Private Function WebPageContains(ByVal s As String) As Boolean
Dim i As Long, EHTML
For i = 1 To WebBrowser2.Document.All.length
Set EHTML = _
WebBrowser2.Document.All.Item(i)


If Not (EHTML Is Nothing) Then
If InStr(1, EHTML.innerHTML, _
s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function

Private Sub Command1_Click()
Dim strfindword As String
strfindword = text1.text ' what word to find?
If WebPageContains(strfindword) = True Then 'check if the word is in page
msgbox "var"
Else
MsgBox "yok" 'string is not in page
End If
End Sub


ben buna ne eklersem sitede text1 e yazdığım kelimeden kactane olup olmadığını labele aktarırım ? illa bu kod uzerindende olması şart değil. sorumu cozsunde vb6 ama.
__________________