>292

Dim sw As New StringWriter

Dim xmlWriter As XmlTextWriter = New XmlTextWriter(sw)

ds.WriteXml(xmlWriter)

Xstr = sw.GetStringBuilder.ToString

として文字列に戻しましたけど
最初のエンコード指定している部分はもどっていませんでした。
ちなみに元のxmlはファイルではなくDBから取得しています。