Imports System.IO
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
        
        Using MyWriter As New StreamWriter("C:\Documents and Settings\Administrator\Desktop\test.txt")
            'Declare your StreamWriter and put the path to the file that you want to write as a Parameter of the StreamWriter. If the File does not exist, then it will be created. If the File Exists it will be overwritten. (You can add the Append Boolean to the Parameters of the StreamWriter if you don't want the File overwritten. StreamWriter(PathToFile, AppendBoolean))

            Dim MyString As String = WebBrowser1.Document.Body.InnerText ' Declare your String and set the Value of the String to be the InnerText of the document in the WebBrowser Control

            MyWriter.Write(MyString) ' Write the String to the File
            MyWriter.Flush() ' Clear the buffers for the current writer and causes any buffered data to be written to the underlying stream
            MyWriter.Close() ' Close the StreamWriter
        End Using

    End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    
    If e.Url.Equals(WebBrowser1.Url) Then

        ' You can do your Webbrowser1.Document work here.

    End if
End Sub