If My.Computer.Network.IsAvailable = False Then
            RichTextBox.Text = "Keine Verbindung zum Internet vorhanden."
        Else
            Dim client As New Net.WebClient
            Dim inhalt As String = client.DownloadString( _
              "http://server.de/textdatei.txt")
            inhalt = RichTextBox.Text
        End If