Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ostrm As New IO.FileStream(TextBox1.Text, IO.FileMode.Create, _
        IO.FileAccess.Write, IO.FileShare.None)
        RichTextBox1.SaveFile(ostrm, RichTextBoxStreamType.RichText)
        ostrm.Close()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist