Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim sw As New System.IO.StreamWriter("D:\text.txt")
 
        For Each TextZeile As String In RichTextBox1.Lines
            sw.WriteLine(TextZeile)
        Next
        sw.Close()
 
End Sub

Gru?

Silver