arama kodu html de ( webbrowser da web sayfasında ) varmı diyor işaretlemiyor

Private Sub Arama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Arama.Click


On Error Resume Next

WebBrowser1.ScriptErrorsSuppressed = True

' arama kodu html de varmı diyor işaretlemiyor

Dim kodu As String

Dim aracan As String

kodu = Kod.Text

aracan = InputBox("Aranacak ifade")

Dim arasonuc As String

arasonuc = kodu.IndexOf(aracan)

If arasonuc = -1 Then

MsgBox("İçinde Yok")

Else

MsgBox("Aranan ifade =" & aracan)

End If

End Sub