リッチテキストコントロールに入力された内容を
xml化してORACLEのxml型の項目に登録したいのですが、
リッチテキスト→xmlの変換方法はあるのでしょうか？
また、そのような変換ツール（vb6.0で利用できるもの）、
サンプルコードなど変換の情報を
知っている方がいらっしゃったら教えてもらえないでしょうか。
よろしくお願いします。

> リッチテキスト→xmlの変換方法はあるのでしょうか？

どのような XML に変換したいのでしょうか?
極端な話、RichTextBox1.TextRTF を CDATAセクションとして出力する方法もあるわけですが……。

    '手抜き実装な例
    Dim F As Integer
    F = FreeFile()
    Open "C:\RTF.XML" For Output As #F
    Print #F, "<?xml version='1.0' encoding='Shift_JIS'?>";
    Print #F, "<richText><![CDATA[";
    Print #F, RichTextBox1.TextRTF;
    Print #F, "]]></richText>";
    Close #F


> また、そのような変換ツール（vb6.0で利用できるもの）、
> サンプルコードなど変換の情報を
> 知っている方がいらっしゃったら教えてもらえないでしょうか。

強いて挙げるなら、Word 2003 を利用してみるとか。

Private Sub Command1_Click()
    RichTextBox1.SaveFile "C:\TEST.RTF", rtfRTF
    Dim O As Object, D As Object
    Const wdFormatXML As Long = 11
    Set O = CreateObject("Word.Application")
    Set D = O.Documents.Open("C:\TEST.RTF")
    D.SaveAs "C:\TEST.XML", wdFormatXML
    Kill "C:\TEST.RTF"
    D.Close
    Set D = Nothing
    O.Quit
    Set Q = Nothing
End Sub

回答ありがとうございます。

少し言葉が足りなかったようで、申し訳ないのですが、
リッチテキスト上の色やフォントの書式を含んだ形式の
xmlとしたいのですが、そのへんの
情報を含んだxml変換を行いたいと思っています。

もし、方法をご存知でしたらお教え願います。

> リッチテキスト上の色やフォントの書式を含んだ形式の
> xmlとしたいのですが、そのへんの
> 情報を含んだxml変換を行いたいと思っています。
先に 2つの案を出しましたが、いずれのコードにも、書式情報は含まれていますよ。(^_^;)

> もし、方法をご存知でしたらお教え願います。
先の回答例のどの部分に問題があったのかがわかりませので、私からはこれ以上の回答は
できかねます。他の手法を探しているのであれば、まずは先の回答の何が問題だったのかを
教えてください。その上で、自分がどういう結果を望んでいるのか、具体的な例を挙げて
提示していただければ、何かアドバイスができるかも(できないかも)知れません。