Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
  URL As Variant)
 
  WebBrowser1.Tag = ""
End Sub
 
Private Sub URL_Load(ByVal sURL As String)
  Dim sQuelltext As String
 
  With WebBrowser1
    .Tag = "Load"
    .Navigate sURL
    ' Warten bis Seite vollständig geladen ist
    While .Tag <> ""
      DoEvents
    Wend
  End With
End Sub
 
Private Sub Command1_Click()
  URL_Load "http://www.showmyip.com/simple/"
  With WebBrowser1.Document.documentElement
    Text1.Text = .outerHTML
  End WIth
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de