Seitenquelltext in in Textdatei speichern

[rVs14]

Hey,
Ich möchte den Quelltext einer Seite welche ich mit dem Webbrowser aufrufe in eine Textdatei speichern.
Wie mache ich das?
Mein Code bisher:

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim qt As String
        Dim writer As System.IO.StreamWriter

        WebBrowser1.Navigate("http://google.com")
        qt = WebBrowser1.DocumentText
        For i = 1 To 10000
            writer.WriteLine(qt)
        Next
    End Sub 

Wird mir nur ein weißes Fenster ausgegeben
Kann mir vielleicht jemand helfen?

mfg

[Ta1lor]

Muss es dringend ein Webbrowser sein? Die Webclient Methode wäre um einiges enfacher und schöner.

[uncopyable]

  Imports System.Net


  Dim client As New WebClient
  Dim quellcode As String = client.DownloadString("http://google.com")
  MessageBox.Show(quellcode) 

[rVs14]

Dankeschön Ta1lor, hatte ich garnicht dran gedacht.
Habs nun hinbekommen.
Mein Code:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim qt As String
        Dim writer As System.IO.StreamWriter
        writer = My.Computer.FileSystem.OpenTextFileWriter("qt.txt", True)


        Dim client As New WebClient
        qt = client.DownloadString("http://google.com")

        For i = 1 To 10000000000
            writer.WriteLine(qt)
        Next

    End Sub

End Class 

Kann geschlossen werden..

[Diebspiel]

Was soll die Schleife mit Milliarden von Durchläufen??? xD

=> IO.File.WriteAllText("datei.txt", qt)

[rVs14]

Mir ist nichts anderes eingefallen obwohl ich wusste das man es auch anders lösen kann.
Danke