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
        saveFileDialog1.ShowDialog()
        If Not saveFileDialog1.FileName = "" Then
            Dim oWrite As StreamWriter
            oWrite = File.CreateText(saveFileDialog1.FileName)
            oWrite.WriteLine(NotepadBox.Text)
            oWrite.Close()
        End If
    End Sub