Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
If TextBox1.Text <> Nothing Then
Dim dl As New WebClient
Dim resultbytes() As Byte = dl.DownloadData("http://" & TextBox1.Text)
Dim result As String = System.Text.Encoding.Default.GetString(resultbytes)
RichTextBox1.Text = result
End If
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
If RichTextBox1.Text = Nothing Then
MessageBox.Show("Bitte laden Sie zuerst einen Quelltext in die Richtextbox!")
Else
Using daten As IO.StreamWriter = New IO.StreamWriter("Quelltext.rtf")
daten.WriteLine(Me.RichTextBox1.Text)
daten.Close()
MessageBox.Show("Sie finden eine Datei names Quelltext.rtf in Ihrem" & _
  "Verzeichnis")
 
 
 
End Using
 
 
 
End If
 
End Sub
End Class