Dim x1&, y1&, Cell$, Txt$, TabW&
 
  Txt = ""
  Me.ScaleMode = vbPixels
  With MSFlexGrid1
    .Redraw = False
    Me.FontName = .Font.Name
    Me.FontSize = .Font.Size
    Me.FontBold = .Font.Bold
    For y1 = 0 To .Rows - 1
      For x1 = 0 To .Cols - 1
        TabW = .ColWidth(x1) / Screen.TwipsPerPixelX - 2
        Cell = RTrim$(.TextMatrix(y1, x1))
        Do While Me.TextWidth(Cell) > TabW
          Cell = Left$(Cell, Len(Cell) - 1)
        Loop
        Txt = Txt & Cell & vbTab
      Next x1
      Txt = Left$(Txt, Len(Txt) - 1) & vbCrLf
    Next y1
    .Redraw = True
  End With
  Txt = Left$(Txt, Len(Txt) - 2)
  RichTextBox1.TextRTF = Txt

Gruss,

Zardoz