Visual Basic

Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click

        Dim xdoc As XmlDocument = New XmlDocument
        Dim xnode As XmlNode
        Dim outwriter As StreamWriter
        Dim outfile As FileStream = New FileStream((txtFile.Text + ".csv"), FileMode.Create)

        Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog()

        SaveFileDialog1.Filter = "csv.files(*.csv)|*.csv|All files (*.*)|*.*"
        SaveFileDialog1.FileName = txtFile.Text
        SaveFileDialog1.RestoreDirectory = True

        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

            xdoc.Load(txtFile.Text)
            xnode = xdoc.DocumentElement

            outwriter = New StreamWriter(outfile)

            getsubnode(xnode, outwriter)

            outwriter.Close()
            outfile.Close()

        End If
    End Sub