codice:
Dim disco As System.IO.File 
Dim scrivi As System.IO.StreamWriter
 scrivi = File.CreateText(Application.StartupPath + "\fileread\" + TextBoxX1.Text + ".OnC") scrivi.WriteLine(RichTextBox1.Text)
 scrivi.Close()

uso questo.

L'estensione l'ho creata io e ho scelto anche io la directory