Private Sub Form_Load()
  WebBrowser1.Navigate "http://..."
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
  If Left$(Text, 7) = "http://" Then
    Debug.Print Text
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de