Sub test()
 
 Dim strText As String
 Dim IE As Object
 Dim Suche As String
 
 Set IE = CreateObject("InternetExplorer.Application")
 IE.Visible = True
 IE.Navigate "https://www.google.de"
 Do While IE.ReadyState <> 4
       ' Warten bis der IE die Site komplett geladen hat
     Loop
 
 
 AppActivate IE
 
strText = IE.Document.DocumentElement.outerHTML
Suche = "test"
 
If InStr(String1 = strText, String2 = Suche) Then
 
MsgBox ("JA")
 
Else
 
MsgBox ("NEIN")
 
End If
 
End Sub

InStr(String1 = strText, String2 = Suche)