' Dateiname zusammensetzen
        Dim FileName As String = "C:\History\Data\" & TextBox1.Text & _
          DateTime.Now.ToString("_dd_MM_yyyy__HH_mm_ss") & ".doc"
        ' Datei erstellen und öffnen
        Dim fs As New IO.FileStream(FileName, IO.FileMode.Create)
        ' Text in ein Byte-Array umwandeln
        Dim b() As Byte
        b = System.Text.Encoding.ASCII.GetBytes(RichTextBox1.Text)
        ' Byte-Array in die Datei schreiben
        fs.Write(b, 0, b.Length)
        ' Datei wieder schließen
        fs.Close()