>Thanks for your answer! Here is another one...How can I do to put the source code in a .txt file ? I will work on It later...thanks!

I just found this searching something else:

Dim strHTML As String
Dim i As Integer
strHTML = WebBrowser.Document.documentElement.outerhtml
For i = 0 To WebBrowser.Document.frames.length - 1
   strHTML = strHTML & vbCrLf & WebBrowser.Document.frames.item(i).document.documentElement.outerhtml
Next