Sto creando un piccolo editor di testi ed ho un problema sulla funzione Salva : | Eccola

codice:
Private Sub SalvaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaToolStripMenuItem.Click

SaveFileDialog1.ShowDialog()
Dim scrivi As New System.IO.StreamWriter(SaveFileDialog1.FileName)
scrivi.Write("")
scrivi.Write(RichTextBox1.Text)
scrivi.Close()

End Sub
Per salvare salva....solo che c'è un problema : mi ignora gli "a capo" !!

per esempio se il mio testo è :

codice:
ciao
salve
buonasera
lui me lo salva come

codice:
ciaosalvebuonasera
Come posso risolvere ?