Untitled

    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        Dim myStream As Stream
        Dim saveFileDialog1 As New SaveFileDialog()

        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.OpenFile()
            Dim filename As String = saveFileDialog1.FileName
            If (myStream IsNot Nothing) Then
                Dim sw As StreamWriter
                sw.Write(Notepadbox.Text)
                myStream.Close()
            End If
        End If
    End Sub