Visual Basic: SaveFileDialog Example

Dim Ofd As New SaveFileDialog
        Ofd.Filter = "SQL insert query files |*.sql"
        If Ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim objWriter As New System.IO.StreamWriter(Ofd.FileName)
            objWriter.WriteLine("TEST")
            objWriter.WriteLine("TEST2")
            objWriter.Close()
        End If