[VB.NET] Salvataggio testo con StreamWriter

[Lardoman 2.0]

Ho provato a cambiare la codifica

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

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

End Sub

Ma non cambia nulla. Ho provato anche ,oltre ad ASCIIEncoding

UTF32Encoding
UTF8Encoding
UTF7Encoding

ma niente da fare , sempre lo stesso risultato

Qualcuno sa aiutarmi ?