Private Sub Button1_ok_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1_ok.Click
        Button1_cancel.Visible = True
        Button1_Save.Visible = True
        RichTextBox1_Baustelleninfo.Visible = True
        Dim FileName As String = "C:\History\Data\" & TextBox1.Text & ".doc"
        ' Datei erstellen und öffnen
 
        If System.IO.File.Exists(FileName) Then
            Dim SR As New System.IO.StreamReader(FileName)
 
            Do
                RichTextBox1_Baustelleninfo.AppendText(SR.ReadLine & vbNewLine)
            Loop Until SR.EndOfStream
            SR.Close()
        Else
            'Hier Datei erzeugen, hmmm... wenn du ein System.io.Steamwriter 
            ' erzeugst, 
            'wir die Datei selbstständig erzeugt
            Dim SW As New System.IO.StreamWriter("C:\History\Data\" & _
              TextBox1.Text & ".doc")
            SW.WriteLine(RichTextBox1)
            SW.Close()
        End If
 
    End Sub