Dim sBuffer As String
Dim sURL As String
 
With Inet1
  .AccessType = icDirect ' Direkte Verbindung
  .Protocol = icHTTP     ' HTTP-Protokoll verwenden
 
  ' Inhalt der Webseite auslesen
  sURL = "http://..."
  sBuffer = .OpenURL(sURL", icString)
 
  If InStr(sBuffer, "Suchtext" Then 
    ' Suchtext vorhanden
    ...
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de