Dim ds As New DataSet
            ds.ReadXml("C:\ATest_\Test_01.xml")

            Dim curFielStream5 As System.IO.FileStream = System.IO.File.Open( _
              "C:\ATest_\Test_04.txt", System.IO.FileMode.OpenOrCreate, _
              System.IO.FileAccess.ReadWrite, System.IO.FileShare.None)
            Try
                Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes( _
                  newFileString)
                curFielStream5.Write(data, 0, data.Length)
            Catch ex As Exception
                ReturnValue = False
            Finally
                curFielStream5.Close()
            End Try