Dim save As New SaveFileDialog
            save.Filter = ("Text-Dateien (*.txt)|*.txt")
            save.Title = ("Text-Datei speichern unter:")
            save.ShowDialog()
 
            Dim Save_Datei As String = save.FileName
            Try
                Dim sw As New System.IO.StreamWriter(Save_Datei)
                Dim values As System.Text.StringBuilder
 
                For Each dbRow As DataRow In DsExport1.Tables( _
                  "TBABRECHNUNGSKATEGORIEN").Rows
                    values = New System.Text.StringBuilder
                    For Each dbCol As DataColumn In DsExport1.Tables( _
                      "TBABRECHNUNGSKATEGORIEN").Columns
                        'Pad each column by 10 characters. You may need to add 
                        ' logic here to 
                        'determine the amount of padding to apply. 
                        values.Append(dbRow(dbCol.ColumnName).ToString.PadRight( _
                          0) & ";")
                    Next
                    sw.WriteLine(values.ToString)
                Next
                sw.Flush()
                sw.Close()
                txtDatei.Text = Save_Datei
                MsgBox("Die Text-Datei wurde erfolgreich, nach " & Save_Datei & _
                  " exportiert!", MsgBoxStyle.Exclamation, "Digital Data -" & _
                  "Erfolgsmeldung")
            Catch ex As Exception
                MsgBox("Bitte geben Sie einen gültigen Datei-Pfad bzw. eine" & _
                  "Datei zum Export an!", MsgBoxStyle.Critical, "Digital Data")
            End Try