inet01Action = True
    brwInet01.Navigate2 path
 
    Do While inet01Action = True
        DoEvents
    Loop
 
    If inet01SourceCode = "<!--DONE-->" Then
        'OK
    ElseIf inet01SourceCode = "<!--ERROR_DATA-->" Then
        'Fehler
    Else
        'Nicht erkannter Datensatz
    End If

Private Sub brwInet01_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    If inet01Action = True Then
        inet01SourceCode = brwInet01.Document.all(0).outerHTML
        inet01Action = False
    End If
End Sub

"Live your life with arms wide open" - Natasha Bedingfield "Unwritten"