Sub update_me()
 
        Dim docx As mshtml.IHTMLDocument2 = CType(AxWebBrowser1.Document, _
          mshtml.IHTMLDocument2)
        Dim text_temp As TextBox = New TextBox
        text_temp.Multiline = True
 
        Dim doc As mshtml.IHTMLDocument2 = AxWebBrowser1.Document
        doc = doc.frames.item(1).document
        text_temp.Text = doc.all.tags("html")(0).innerText
 
        Dim counter As Integer = text_temp.Lines.Length
 
        Dim x1 As Integer = 0
        Dim x2 As Integer = -1
 
        Dim sw As IO.StreamWriter = New IO.StreamWriter(Application.StartupPath _
          & "\System\test.txt", False)
 
        Do
            x1 += 1
            x2 += 1
 
            sw.WriteLine(text_temp.Lines(x2))
 
        Loop While x1 < counter
        sw.Close()
 
    End Sub