Dim myStream As System.IO.Stream
        Dim saveFileDialog1 As New SaveFileDialog()

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


        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.OpenFile
            If Not (myStream Is Nothing) Then
                Dim Sw As New StreamWriter(myStream)
                Dim Str As New StringBuilder()
                Dim myRow As DataRow
                Dim myColumn As DataColumn
                Dim i As Double
                For Each myRow In Me.DataSet_ExportImport.Export_SchetsLine.Rows
                    For Each myColumn In Me.DataSet_ExportImport.Export_SchetsLine.Columns
                        Str.Append(myRow(myColumn).ToString + ";")
                    Next
                    Str.Append(ControlChars.NewLine)
                Next
                Str.Append(ControlChars.NewLine)
                Str.Append("----------------------------------------------------------------")
                Sw.Write(Str.ToString)
                myStream.Close()
                Me.RichTextBox1.Text = Str.ToString
            End If
        End If