Dim save As New SaveFileDialog
            save.Filter = ("Text-Dateien (*.txt)|*.txt")
            save.Title = ("Datei speichern unter:")
            save.ShowDialog()
 
            'Schreibt Daten aus View_Export in Datei!!!
            Dim Save_Datei As String = save.FileName
            Dim sw As New System.IO.StreamWriter(Save_Datei)
            Dim values As System.Text.StringBuilder
            For Each dbRow As DataRow In DSEXPORT.Tables("VW_EXPORT").Rows
                values = New System.Text.StringBuilder
                For Each dbCol As DataColumn In DSEXPORT.Tables( _
                  "VWFORTRAS6_EXPORT").Columns
                    values.Append(dbRow(dbCol.ColumnName).ToString.PadRight(0))
                Next
                sw.WriteLine(values.ToString)
            Next
            sw.Flush()
            sw.Close()