Untitled

    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True
        save.ShowDialog()
        If Not save.FileName = "" Then
            Dim oWrite As StreamWriter
            oWrite = File.CreateText(save.FileName)
            oWrite.WriteLine(notepad.Text)
            oWrite.Close()
        End If
    End Sub