On Error GoTo ErrHANDLER
 
    Inet1.Cancel
 
    Inet1.Protocol = icHTTP 
    Inet1.AccessType = icDirect 
 
    Text1.Text = Inet1.OpenURL("http://www.google.de/", icString) 'Seite laden
 
    Open "C:\abc.htm" For Output As #1
        Print #1, Text1.Text
    Close #1
 
    WebBrowser1.Navigate "c:\abc.htm"
 
    Exit Sub
ErrHANDLER:
    Inet1.Cancel
    MsgBox "ERROR: " & Err.Description, vbCritical
    Exit Sub