Salvare correttamente il contenuto di una Richtextbox in un file ".txt"

[apinato]

Buongiorno

Devo salvare il contenuto di una RichTextBox, il problema è che quando vado a salvare le righe (che sono a capo tra loro) si attaccano formando un unica riga unica, mentre io voglio mantenere la formattazione originale, ovvero:

G88G90G54P5T01c8G42X4Y-20Z=b C0V0
G1G90X4Y128.06
G88G90G54P5T01c8G42X344.81Y128.06Z=a C0V0
G1G90X482.73Y-7.61

e NON:

G88G90G54P5T01c8G42X4Y-20Z=b C0V0 G1G90X4Y128.06 G88G90G54P5T01c8G42X344........

Sto usando il seguente sistema per salvare il file:

Dim save As NewSaveFileDialog


If save.ShowDialog = Windows.Forms.DialogResult.OK Then 'mostra finestra dialogo salvataggio'
TextBox2.Text = save.FileName
End If


Dim salva As New IO.StreamWriter(TextBox2.Text) 'salva il file'
salva.Write(RichTextBox1.Text)
salva.Close()

Come potrei risolvere?

Io metterei il contenuto della richtextbox in una array di stringhe e poi la ciclerei per scriverla nel file.