' **** Excelの1行1列目のセルに、改行コードを含むRTFが設定されている場合 ****
　　Dim rows As New List(Of String)
　　Dim RichTextBox1 As New RichTextBox()

　　For stNo As Integer = 0 To C1XLBook1.Sheets.Count - 1
　　　　Dim sheet = C1XLBook1.Sheets(stNo)
　　　　'Sheetが存在しなければ、処理を中止
　　　　If sheet Is Nothing Then Exit For
　　　　'A列の値を取得
　　　　For row As Integer = 0 To sheet.Rows.Count - 1
　　　　　　'返却用文字列
　　　　　　Dim cellText As String
　　　　　　Try
　　　　　　　　' リッチテキストの場合、改行コード(vbLf)を「¥par」に置き換え
　　　　　　　　Dim value As String = CStr(sheet(row, 0).Value)
　　　　　　　　If Not value Is Nothing AndAlso value.StartsWith("{¥rtf1") Then
　　　　　　　　　　value = value.Replace(vbLf, "¥par")
　　　　　　　　End If
　　　　　　　　RichTextBox1.Rtf = value
　　　　　　　　Dim plaintext = RichTextBox1.Text
　　　　　　　　cellText = plaintext.Replace(vbLf, vbCrLf)

　　　　　　Catch ex As Exception
　　　　　　　　cellText = sheet(row, 0).Text
　　　　　　End Try
　　　　　　rows.Add(cellText)
　　　　Next
　　Next

　　// **** Excelの1行1列目のセルに、改行コードを含むRTFが設定されている場合 ****
　　C1XLBook1.Load(filePath, FileFormat.OpenXml);
　　List rows = new List();
　　RichTextBox RichTextBox1 = new RichTextBox();

　　for (int stNo = 0; stNo <= C1XLBook1.Sheets.Count - 1; stNo++)
　　{
　　　　dynamic sheet = C1XLBook1.Sheets(stNo);
　　　　//Sheetが存在しなければ、処理を中止
　　　　if (sheet == null)
　　　　　　break; // TODO: might not be correct. Was : Exit For
　　　　//A列の値を取得
　　　　for (int row = 0; row <= sheet.Rows.Count - 1; row++)
　　　　{
　　　　　　//返却用文字列
　　　　　　string cellText = null;
　　　　　　try
　　　　　　{
　　　　　　　　// リッチテキストの場合、改行コード(vbLf)を「¥par」に置き換え
　　　　　　　　string value = Convert.ToString(sheet(row, 0).Value);
　　　　　　　　if ((value != null) && value.StartsWith("{¥¥rtf1"))
　　　　　　　　{
　　　　　　　　　　value = value.Replace(Constants.vbLf, "¥¥par");
　　　　　　　　}
　　　　　　　　RichTextBox1.Rtf = value;
　　　　　　　　dynamic plaintext = RichTextBox1.Text;
　　　　　　　　cellText = plaintext.Replace(Constants.vbLf, Constants.vbCrLf);
　　　　　　}
　　　　　　catch (Exception ex)
　　　　　　{
　　　　　　　　cellText = sheet(row, 0).Text;
　　　　　　}
　　　　　　rows.Add(cellText);
　　　　}
　　}