questo è il salva con nome
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
SaveFileDialog1.Filter = ("File di testo (*.txt)|*.txt")
SaveFileDialog1.FileName = ""
SaveFileDialog1.ShowDialog()
Dim ww As New IO.StreamWriter(SaveFileDialog1.FileName)
ww.Write(TextBox1.Text)
ww.Close()

End Sub